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(54) Method and apparatus for finding and selecting a desired data item from a large schedule 
of data items using a TV set and a controller similar to a TV-remote-control 



(57) An apparatus and method for presenting a 
viewer with an overall representation of the present 
number of entertainment programs available for selec- 
tion given one week of program schedule data for 300 
or more channels and one or more filtering criteria to 
limit the number of items represented in the overall rep- 
resentation. Sequentially applied filters will filter the 
group of program schedule data items that has at least 
100,000 half hour time slots offered by 300 channels 
each week into a smaller subgroup where individual 



consideration of each item of the subgroup can be made 
in a reasonable time. A set top box drives the display of 
overall representations or results of filtering criteria on 
a commercial TV set. Once a reasonable sized sub- 
group is obtained, other displays provide specific infor- 
mation of the program offerings of the subgroup. Selec- 
tion of the filtering criteria and selection from within a 
subgroup is interactively made by a viewer through the 
use of a controller that looks and operates very much 
like a TV remote control. This makes the interaction fa- 
miliar, easy and predictable. 
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Description 
Technical Field 

s The invention concerns a method and apparatus for subjecting a large schedule of data items having multiple 

attributes to consecutive selection criteria in order to reduce the number of individual programs to a manageable group 
which can be visually searched for a desired data item having a selected subset of the attributes, and more particularly 
to an apparatus and method which use an interactive control having directional buttons and a select button that are 
used in conjunction with an interactive display viewed on a normal television set to select the desired data item. 

10 

Description of the Prior Art 

Presently there are known methods for reducing a large quantity of data into a manageable set of data which can 
be visually searched for a desired item by a decision maker One example of such a large quantity of data is a directory 

is of a fixed drive of a computer system. Methods implemented through interactive graphical user interfaces for personal 
computers and workstations display and reduce disk drive directories to root directory displays which typically show 
root level files and one or more branch subdirectories for the user's selection. Upon selection of a subdirectory, usually 
by a mouse, the display typically shifts showing files of the selected subdirectory and sub-subdirectories for further 
selection. The subdirectory display is often too big to fit on the screen, so interactive scroll bars are typically provided 

so so the display may be controlled by a mouse. Using the mouse and the scroll bars, a user may work down the directory 
tree structure until the desired file is found. Such graphical user interfaces are common for computers and monitors 
where visual definition is typically at least 640 x 480 pixels for each display. Such techniques might be used in homes 
to access databases of useful information, such as airline schedules, television programming schedules and movie- 
on-demand catalogues. Unfortunately, each home does not have a computer or work station with 640x480 pixel defi- 
es nition which could take advantage of such existing databases. Further, the NTSC television set which almost every 
home has in its living room has relatively low viewing definition compared to 640 x 480 pixels or more per screen 
definition of computer monitors. Moreover, the typical home television set is not connected to a mouse, which is not 
an appropriate pointing device for the living room, rather most television sets have controls on control panels and/or 
on a remote controls. If just a fraction of these home television sets were used to find and select airline ticket reserva- 

30 tions, programs to watch on 300 hundred or more channel cable television services, or pay-per-view movies from a 
vast collection, the profitability of the service providers and the satisfaction of the users would both be improved. The 
300 plus channels mentioned, may use any type of transmission scheme that will deliver information via a cable or 
wireless path and includes but is not limited to time division multiplexed channels, frequency division multiplexed chan- 
nels and packet data multiplexed channels. 

35 One known approach for the TV programming schedule is to display the presently showing programs along with 

the next subsequent programs for the next hour or so, on what is referred to as a preview channel. Because this is 
more information than can be legibly displayed on one television screen at once, the preview channel display often 
scrolls through all the channel offering for the present time and the near future. For a sixty channel system, one complete 
scrolling takes about three minutes. At such a rate, a one hundred channel cable service would take five minutes and 

40 the future three hundred plus channel cable services would take 15 minutes. Needless to say, three minutes is a long 
time, but acceptable because breaks between programs are about that long. Five and fifteen minutes time periods 
though represent a substantial portion of a 30 minute program and are simply too long to expect a TV viewer to wait. 
The alternatives of speeding up the scrolling rate or using smaller size letters for descriptions are not practical either 
because either of these actions reduces the ability of the viewer to read and understand the schedule. Thus, there is 

45 a need in the art for a method and apparatus that allows a viewer to quickly find and select a desired data item from 
a large schedule, in this case a TV program for viewing from a TV programming schedule for 300 plus channels over 
the ensuing hours or even days. There is a similar need for a method and apparatus, very similar to the TV program 
selector, for finding and selecting a movie to order from movies-on-demand, or an airline flight(s) for a trip. It would 
further be desirable to use a method similar to the TV program selector to find and select a file in storage assets 

50 accessible by the apparatus to be executed, updated or deleted as part of file maintenance. 

It is an object of the present invention to provide a view of a large schedule of data items and interactive selections 
of subgroups of the large schedule of data items in order to arrive at a screen display with sufficiently small number of 
items and sufficiently legible descriptions of each item to provide a viewer with an opportunity to make a reasoned 
selection therefrom. 

55 it is another object of this invention to provide a method for interactively selecting a data item from a large schedule 

of data items by means of sequentially applying different filtering criteria using an interactive control having an operation 
appropriate for use with a television set. 
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Summary of the Invention 

In another aspect of the invention, the aforementioned objects may be achieved by providing a method for a home 
television viewer to interactively select a data item from a large schedule of data item having multiple attributes. The 

s method includes a step of receiving the large schedule of data items. The received schedule of data items is stored 
locally in a database format in order to expedite later filtering and retrieval. Next, the schedule of data items is filtered 
into a subgroup of the schedule of data items according to attributes selected by to interactive viewer inputs. The 
resulting subgroup of the schedule data items is displayed for the viewer's inspection. The user then interactively 
selects a data item from the subgroup of data items viewed on a television screen. 

io Briefly stated, in accordance with one aspect of the invention, the aforementioned objects are achieved by providing 

an apparatus for selecting an item from a large group in a system having display means and interactive movable 
pointing means for specifying a location in the display means and making a selection at a specified location. This 
apparatus includes a filtration means including subgroup specifiers in the display means and is responsive to selection 
of a subgroup specifier by the pointing means for filtering the list to produce the subgroup specified by the selected 

is subgroup specifier; means for displaying representations of group items belonging to at least a portion of the subgroup 
in the display means; and group item selection means for selecting a group item by selecting the representation thereof 
in the display in response to the pointing means. 

In yet another aspect of the invention, the aforementioned objects may be achieved by providing a method for a 
viewer to interactively select a program. The method includes a step of receiving program schedule data for at least 

20 300 individual channels for a time period of at least a week. The received program schedule data is stored locally in 
a database format in order to expedite later sorting and retrieval. Next, the program schedule data is filtered into a 
subgroup of the program schedule data in response to interactive viewer inputs. The subgroup of the program schedule 
data is displayed for the viewer's inspection. The user then interactively selects a program from the subgroup of program 
schedule data for viewing on a TV screen, or alternatively for recording by an appropriate program recording device. 
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Brief Description of the Drawing 



FIG. 1 is a pictorial of a television set connected through a set top box to a cable carrying the program to be 
selected and a controller for selecting that program. 
30 FIG. 2 is a simplified block diagram of the set top box. 

FIG. 3 is a pictorial of a controller as shown in FIG. 1 . 

FIG. 4 is a pictorial of a top most selection interactive display. 

FIG. 5 is a pictorial of a second level selection interactive display. 

FIG. 6 is a pictorial of a third level selection interactive display. 
35 FIG. 7 is a pictorial of a first level selection query display. 

FIG. 8 is a pictorial of a second level selection query display. 

FIG. 9 is a pictorial of another third level selection query display 

FIG. 10 is a pictorial of a display showing a subgroup of programs meeting the Sports, All and On Now sorting 
criteria. 

40 FIG. 11 is a pictorial of a of the display showing the subgroup of programs meeting the Sports, All and On Now 

sorting criteria along with a window having a preview of the highlighted program. 

FIG. 12 is a pictorial of a display showing a second level selection interaction display, similar to FIG. 5. 
FIG. 13 is a pictorial of a two-dimensional interactive grid display with very many program data items shown in 
reduced representations. 
45 FIG. 14 is a pictorial of a third level selection query display, similar to FIG. 9. 

FIG. 15 is a pictorial of a two-dimensional interactive grid display filtered down to a manageable number of data 
items. 

FIG. 16 is a pictorial of a first alphanumeric interactive display. 

FIG. 17 is the same display as FIG. 14 except that the highlighted interactive area is at a different location, 
so FIG. 18 is a pictorial of a second alphanumeric interactive display. 

FIG. 19 is the same display as FIG. 16 except the highlighted interactive area is at a different location. 
FIG. 20 is a pictorial of a third alphanumeric interactive display. 

FIG. 21 is the same as FIG. 18 except that the highlighted interactive area is at a different location. 
FIG. 22 is a pictorial of a fourth alphanumeric interactive display. 
55 FIG. 23 is a pictorial of a two dimensional interactive display with logical third dimensional stacks for row and 

column intersections having multiple entries therein. 
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Detailed Description 

Referring now to FIG. 1, a television set (TV) 10 is connected to set top box (STB) 12 via interconnecting cable 
14. STB 12 is also connected to cable 16 which carries at least one cable program. The TV 10 is any standard TV 
5 such as an NTSC, a high definition, or some other standard commercial type for home use. A controller 20 is linked 
to STB 1 2, preferably via a free space optical link 22 for controlling the operation of STB 1 2 in order to select a program 
for viewing. 

Referring now to FIG. 2, STB 12 will be described in greater detail. The STB 12 has a cable interface 30 that 
selects and converts the incoming signals on cable 16, whether they are digital signals, analog signals, or packet 

io signals, to signals that are compatible with the TV 10. The cable interface 30 is connected by bi-directional bus 32 to 
CPU 34. Bi-directional bus 32 carries digital information received over cable 1 6 for use by CPU 34 and digital information 
transmitted from CPU 34 to cable interface 30. If cable 16 is a bidirectional cable, some of the information from CPU 
34 will be processed through cable interface 30 to cable 16. 

In addition to bi-directional bus 32, CPU 34 is connected to ROM 38 and RAM 40 via a memory bus 36. ROM 38 

is contains an operating program that is executed by CPU 34 to provide most of the functionality of the STB 12. RAM 
40, among other things, provides storage space for intermediate results of the operating program as executed by CPU 
34. RAM 40 provides storage for data that is received from cable 16 and filtered in response to the operating program 
and viewer inputs from controller 20 (shown in FIG. 1 ). If further storage is needed for data, larger RAM devices and/ 
or mass storage devices such as disk drives, may be also connected bi-directional bus 32 (not shown). To receive 

20 viewer input, CPU 34 is connected to controller interface 44 via bus 42, and to provide feedback to the viewer, CPU 
34 is connected to and drives STB display 48 via bus 46 with channel related information. 

FIG. 3 illustrates a preferred embodiment of the controller 20. Controller 20 is designed to look and operate like a 
standard remote control of a TV or a video cassette recorder (VCR). Controller 20 has a numeric keypad 50 having 
number keys 0-9. Controller 20 has an up arrow 52, a down arrow 54, a right pointing arrow 56. a left pointing arrow 

25 58, a double up arrow 60 and a double down arrow 62. Controller 20 also has a select (^) button 64, a cancel (X) 
button 66 and a query (?) button 68. All interactions with the interface provided by the present invention are controlled 
by various sequences of these 1 9 buttons of the controller 20. Further, the result of actuating one of these buttons will 
be similar the results of a similar action of a standard TV or VCR remote control, so its use will be familiar, predictable 
and intuitive to the viewer using it. 

30 There are two broad classes of graphical components used in the interface of the present invention: those used 

by the viewer to select a desired data view or to apply a filter to the information being displayed, such as FIG. 4; and 
those components used to actually display the information through which the viewer will progress in order to make a 
selection of a specific item, such as FIG. 6. For example, the viewer might view the schedule of TV programs for the 
next few hours (all channels), and filter the display to show only sports, basketball games in particular. These choices 

35 fall into the first class. Once the display of alt basketball shows for the next few hours has been selected, the viewer 
may progress through it reviewing a text or video digest of each program as selected by the controller 20. Selection 
of a specific program would typically lead to an action such as videotaping the show or setting an alarm to remind the 
viewer that the desired program is coming up. The navigation and selection sequences to find and select the desired 
program are examples of the use of the second class of graphical components. 

40 Note, that in both cases the viewer is required to navigate through multiple graphic displays in order to ultimately 

select a desired program. The interfaces are kept conceptually and visually distinct in the interface according to the 
present invention because they serve different purposes and the viewer is reminded of this by their appearance. In 
addition, the information involved in the view selection components, i.e., the first class, falls naturally into the form of 
hierarchical menus: short lists with complex substructure. In contrast, the data display, i.e., the second class, compo 

45 nents must be able to handle large schedules and arrays of information, which are essentially flat data with simple 
substructure. 

Additionally, there is a display component in most displays referred to as a "flame', which functions as a status 
display. The frame is used to give the viewer some context (what view am I displaying?), as well as a brief summary 
of the presently selected item's characteristics (what item do I currently have selected?). Typically the latter would be 
50 the item's full name and useful information such as program start and stop times. The frame will be described further, 
later. 

Referring now to FIGs. 3 and 4, a top or beginning level display 400 of the viewer interface for use with controller 
20 as it appears on the viewer's TV 10 (shown in FIG. 1) during normal operation. It is depicted as a file card menu 
402 having a tab labeled "Begin*. On file card menu 402 are interactive buttons labeled Movies (on Demand) 404, 
ss Last Movie 406. Options 408, TV 410, TV Now 412, Last TV 414, Shopping 416, and Last Shop 418 which when 
selected by means of the controller 20 cause the next relevant display to be shown along with some sorting and/or 
filtering to be performed on the data stored in RAM 40 (shown in FIG 2). When the file card menu 402 first appears, 
an active area, where a selection may be made, is highlighted. This active area may be moved by actuating the arrow 
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buttons 52-56 and double arrow buttons 60, 62 of controller 20. The file card menu 402 is surrounded by a frame 420, 
the top of which indicates the designation of the active area currently highlighted. Once an active area has been high- 
lighted, a selection is made by actuating the select (/) button 64 in FIG. 4, the TV button 410 is shown to be active: 
by actuating the select K) button 64, the next display 500 shown in FIG. 5 appears. This appearance is a logical 
s overlaying of the display 500 over the display 400. Although display 400 is not visible while any logically overlaying 
display is appearing on the screen of the TV 10, display 400 will become visible again if all of the logically overlaying 
displays are canceled, i.e. by actuating the cancel (X) button 66. Thus, until a program is selected for real time viewing, 
it is possible for the viewer to work his or her way back to the display 400 by actuating the cancel (X) button the 
appropriate number of times. 

io FIG. 5 shows a second level display 500 which is depicted as a file card menu 502 labeled "TV, which appears 

to overlay and occlude all of file card menu 402 except for the label "Begin". The label TV indicates that the items that 
can be accessed are TV shows, such as dramatic series, situation comedies, serials, regular variety shows, game 
shows, sports, and so forth. Since movies and shopping were topics of other interactive buttons, these types of pro- 
grams may be filtered out in whole or in part. File card menu 502 has interactive buttons labeled On Now 504, Week- 
's days 506, Coming Up 508, Weekend 510, and Search 512. As with the file card menu 402, file card menu 502 has 
an active area that can be moved by the viewer by operation of the arrow buttons 52-56 and double arrow buttons 60, 
62 of controller 20 (shown in FIG. 3). Each of the interactive button represents another filtering that will be performed 
if it is selected. In FIG. 5, the On Now button 504 is highlighted, and if selected by actuating the select (O button 64, 
causes a third level display shown in FIG. 6 to appear and a further sorting an/or filtering of the data stored within RAM 
20 40 (shown in FIG. 2). 

Referring now to FIG. 6, display 600 shows what is on at the present time, which in this illustration is 6:30 p.m. A 
reduced representation 602 of all television shows that are on at the present time appears in FIG. 6. The reduced 
representation 602 presents each program that is presently on as a card in a tightly cascaded set of cards. The cards 
may be gray shade coded to distinguish between news shows, sport shows, dramatic shows, comedy shows, docu- 

25 mentary shows and so forth. Those skilled in the art will recognize that color would be preferable for color television 
sets, and a method and apparatus according to the present invention using color to differentiated program types in the 
reduced representation 602 is contemplated. Thus, using visual coding within the reduced representation 602 would 
allow a sports program to visually stand out from the non-sports TV programming in the example shown. Up arrow 52 
and Down arrow 54 respectively move a selection window 604, which is slightly wider than the items displayed in 

30 reduced representation, up and down the reduced representation 602 of the On Now subgroup in single steps. Motion 
of the active area along the reduced representation 602 is one dimensional, either up or down. The up arrows 60 and 
the down arrows 62 move this selection window 604 respectively up and down the reduced representation 602 in 
increments of six. The individual items visible and located within the selection window 604 represent a further subgroup 
of six programs out of the reduced representation 602 On Now subgroup. This six program subgroup of the selection 

35 window 604 is displayed in larger form in a grid display 606 located next to reduced representation 602. This larger 
form allows the viewer to read the titles of the programs presently in grid display 606. The visible coding, i.e. gray 
shade coding or color coding, of each item is retained in the larger form in grid display 606 to aid the viewer differentiate 
between the various types of programming offered. 

Within selection window 604 and grid display 606 are active areas 605, 607 that highlight one item in their respective 

40 portions of display 600. The active areas 605, 607 move in coordination with each other in response to the Up arrow 
52 and the Down arrow 54. When Up arrow 52 or Down arrow 54 require the active areas 605 and 607 to move above 
or below the selection window 604 and grid display 606, a paging occurs which moves the selection window up six or 
down six. When an item is located within active areas 605, 607, further information, such as the TV channel call sign, 
the cable channel number, and the exact start and stop times, is retrieved from the programming database stored in 

45 ram 40 and displayed in the top of a frame 610 of display 600. If the select {') button 64 is actuated at this time, a 
preview of either a short text description or a brief still or motion video replaces the grid display 606. The data for these 
previews are stored in RAM 40. A second sequential actuation of the select K) button 64 actually selects the highlighted 
program in the active area 604 of reduced representation 602 and formerly highlighted in grid display 606. If the up 
arrow 52 or the down arrow 54 is actuated the respective preview for the next program item up or down from the 

so previous previewed item is selected. The information displayed in the top of the frame 610 will change to the next 
program item up or down also. Actuation of the cancel button 66 returns the viewer to the previous arrangement of 
display 600. The bottom of the frame 61 0 lists the characteristics of the display 600, which are also retrieved from RAM 
40. If the query (?) button 68 is actuated, the grid display 606 will be replaced by a generalized help menu. This 
generalized help menu has many buttons, as explained below, one of which is a view button. If the view button is 

55 actuated, the generalized help menu is replaced with the previous select (i.e. filter) view. 

Referring now to FIGs. 3, and 7 a selection of a program by category will be described. Actuation of the query (?) 
button 68 of controller 20 causes display 700 to appear on the screen of TV 10 (shown in FIG. 1). On display 700 has 
a help button 702, a categories button 704, a view button 706, a begin button 708, a favorites button 710, and a user 
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button 712. An active area, shown on categories button 704 is moved by the arrow buttons 52-58. The function of the 
view button 706 has been discussed in regard to FIG. 6 and will not be repeated here. Actuation of the help button 
702 causes a menu of specific help functions to be displayed. Actuation of the begin button 708 causes the beginning 
menu to be displayed, i.e. it takes the viewer back to the beginning of the selection sequence. Actuation of the favorites 

s button 710 brings up a list of favorite programs for the present timeslot, which may either be accumulated by the CPU 
32 from viewing data or may be entered by the viewer or viewers. Actuation of the viewer button 712, which causes a 
display to appear where a viewer may interactively enter his or her status as the principal viewer. This information is 
used to determine, display a slate of favorite programs customized for each viewer. Actuation of the categories button 
704 causes a further display 800, which is shown in FIG. 8, to replace display 700 on the screen of TV 10. 

io Referring now to FIGs. 3, 8 and 9, display 800 has numerous buttons 801 , 802, 803, 804, 805, 806, 807, 80S, and 

809 corresponding to Favorite, Information, Entertainment, Movies, Sports, News, Children, Series and More catego- 
ries of programming. The buttons 801 -809 may be have an active area moved among them using arrows 52-58, or the 
numeric keypad may be used as a set of hot keys to move the active area to the desired category immediately. The 
buttons 801 -809 are laid out in a 3x3 row and column arrangement just the same as the 1 -9 keys of keypad 50 are 

'5 arranged. Thus, without numbering, intuitive hot key navigation is possible. For example to move the active area to 
the button in the third column and third row, i.e. button 809, the key in the third column and the third row, i.e. the numeral 
9, of keypad 50 is actuated. The button 809 unlike the other buttons which subsequently provide narrower choices, 
gives another display of buttons for further category choices (not shown). If the active area is around Sports button 
805 as shown in FIG. 8, and the select (^) button 64 is actuated, the display shown in FIG. 9 would appear. FIG. 9 is 

20 arranged with selection buttons 901 -909 in a 3x3 arrangement, similar to that of FIG. 8. Movement of the active area 
by arrows 52-58 or by hot key is available in FIG. 9, as in FIG. 8. Buttons 901-909 correspond to Baseball, Football, 
Basketball, Soccer, All, Hockey, Golf, Racing and Other respectively. Except for All button 905, each of the buttons in 
FIG. 9 represents a narrower subgroup of the overall category of sports. Actuating All button 905 causes display 1000, 
shown in FIG. 10, to replace, i.e. logically overlay, display 900. 

25 Referring now to FIG. 10, a filtered display for TV programs, that are On Now, for 6:30 p.m. local time as shown 

in FIG. 10, that are Sports programs showing All categories in reduced representation 1002 is shown. Reduced rep- 
resentation 1002 has so few entries that characteristics of the individual cards that were hidden previously by the sheer 
number of programs represented can now be discerned. For example, menu card 1003 representing the program This 
Week in the NBA is shorter on the left side than menu card 1004 representing the program Senior PGA Golf. The 

30 reason for that difference is that the program This Week in the NBA starts at 6:30 p.m., while the program Senior 
PGA Golf started at an earlier time as designated by the double left pointing arrows before the title of Senior PGA 
Goif in selection window 1006. Since This Week In the NBA and Senior PGA Goylf both end at the same time, the 
right sides of their reduced representations 1003 and 1004 end at the same location. Movement or navigation of the 
active area 1005 along the reduced representation 1002 is by means of controller 20 the same as in FIG. 6. Each of 

35 the six titles shown in selection window 1006 has a respective rectangular region 101 0-1 01 5 thereafter. The rectangular 
regions 1010-1015 are shaded differently according to the type of sports program with which they are associated. 
These different shades of gray, or different colors if the display is shown on a color TV, are a visual key to the type of 
sport that corresponds to each of the six titles. Actuating the select (') button 64 of controller 20 causes display 11 06, 
shown in FIG. 1 1 , which is a text preview of the program highlighted by the active area, to overlay selection area 1006. 

40 As mentioned above, actuating the select K) button 64 at this point will cause CPU 34 to instruct cable interface 30 
(shown in FIG. 2) to select that TV program for viewing. 

Referring again to FIG. 10 if the status of the method and apparatus is the same as it was just after the selection 
that caused display 1000 to be shown was made, as described in the previous paragraph, and if the query (?) button 
66 is actuated, then the display 700 shown in FIG. 7 with various selections will again be displayed. Further, if view 

45 button 706 is actuated, display 1200 as shown in FIG. 12 and its fitter selections will logically over lay display 700. 
Display 1200 has numerous interactive buttons: On Now 1202, Coming Up 1204, Search 1206, Weekdays 1208 and 
Weekend 1210. Since the All Sports category has been selected previously, if the active area of display 1 200 is moved 
to highlight the Coming Up button 1204 and the button 1204 is actuated, display 1300, shown in FIG. 13 will appear 
and over lay display 1200. 

50 In display 1300, two coordinate axes are shown which are respectively labeled with two attributes of the of the 

selected subgroup of data items. The two attributes shown in display 1300 are channels and timeslots for the next 24 
timeslots, i.e. 12 hours, coming up. Since the all sports category has been selected, each sports program showing on 
one of the 300 plus channels within the next 12 hours will be represented in display 1300. Each sports program up- 
coming is represented by a rectangular 'card* located in the row corresponding to the channel carrying the program 

55 and in the column (s) representing the timeslot(s) when it will be shown. Each 'card' is a color coded, reduced repre- 
sentation of the data item for its respective program. The viewer may move the active area 1302 among the cards 
using the up and down arrows 52, 54 and right and left arrows 56, 58 for movement vertically and horizontally, respec- 
tively. As can be seen from display 1300, there are still too many data items in the subgroup to individually consider 
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in a reasonable amount of time, so further filtering, either by a shorter time period, i.e. On Now, or a narrower category, 
i.e. basketball, is needed. To change to a narrower category, the viewer presses the query (?) button 68 which causes 
display 700 (shown in FIG. 7) to be displayed. Next, categories button 704 is selected which causes display 900 (shown 
in FIG. 9) to be displayed. Next, basketball button 903 is selected which causes display 1500 of FIG. 15 to be displayed. 

s The Coming Up time filter of FIGs. 12 and 1 3 has not been changed, so display 1 500 shows the basketball programs 
coming up in the next 1 2 hours. As can be seen, the two-dimensional grid display 1 500 contains approximately sixteen 
programs, which is sufficiently small to review each item individually in a reasonable time period. Moving active area 
1502 around two-dimensional grid display 1500 with the up and down arrows 52, 54 and/or the right and left arrows 
56, 58, causes the title and channel of each program to be displayed in the top of the frame of display 1500 to assist 

io the reviewing and selection process. For example, the program highlighted by active area 1502 is "This Week In the 
NBA" and it is showing on CNN. Thus, by selective filtering the unwieldly display 1300 of programs shown in FIG. 13 
is reduced to a manageable handful of display 1 500, which the viewer can navigate through individually in a reasonable 
time. 

Referring now to FIGs. 16-23, another aspect of the present invention will be described. In FIG. 16 and the re- 
's main in g figures, a longer period of time is selected other than the one and a half hours or so retrieved by the On Now 
selection. For example, if the viewer wishes to look at the programming available for the rest of the week in order to 
select something to record on a VCR (not shown). Actuating the button having the number zero (0) of the keypad 50 
while watching a program causes the data view menu selection card, such as 900 of FIG. 9, to appear at the point in 
the menu-display hierarchy where the last selection was made. Actuating the zero (0) button again moves the viewer 
20 towards the broadest data view menu 400 of FIG. 4, and the viewer may stop at any display in order to change time 
or subject matter categories. 

Thus if a viewer were watching This Week in the NBA, and wanted to find a program of interest that is on later, 
the viewer would first actuate the zero (0) button of keypad 50 which would bring up the display of FIG. 10. Actuating 
the zero (0) button four more times takes the viewer through displays 900, 800, 700 and 500 of FIGs. 9, 8. 7 and 5 
25 respectively. To get a specific program title, the search button 509 is actuated, which causes FIG. 16 to logically overlay 
the display 500. FIG. 16 shows a first display 1600 of an interactive alphanumeric selection sequence. First, all alpha- 
betic titles are sorted into groups of five or less. If, for example, Nova was the title of the desired program, the active 
area would be moved from its initial position (either at the top of the display or at the last group selected) to the group 
of letters containing the letter N using the up arrow 52 or the down arrow 54 as shown in FIG. 1 7 followed by actuation 
30 of the select (^) button 64. This sequence would cause FIG. 18 to logically overlay FIG. 17. In FIG. 18, the active area 
is moved from its initial location at M to the location ofN as shown in FIG. 17 followed again by actuation of the select 
(S) button 64 causes the display 2000 of FtG. 20 to overlay FIG. 19. In display 2000 are single instances of the first 
two letters, such as NYPD Blue is the only instance of N followed by Y, and multiple instances of the two letter string 
as denoted by the double right pointing arrows by NO. To continue the search for Nova, the active area is moved to 
35 the line containing NO of display 2000 as shown in FIG. 21 using the down arrow 56 and actuating the select (*) 
button 64, which causes display 2200 of FIG. 22 to overlay display 2000. Now, Nova is the only instance of a program 
beginning with NOV, so the entire title Nova appears in FIG. 22. By moving the active area to the line labeled NOVA 
in display 2200 and actuating the select (/), button 64 causes the display 2300 shown in FIG. 23 to overlay display 
2200 with a schedule of times and channels for the program series Nova, 
to FIG. 23 is a one week schedule that is laid out as a logical three dimensional grid. The days of the week are 

displayed along one side, in this case vertically along the left side, of the display 2300. Time of day is displayed along 
a perpendicular side, in this case horizontally across the top, for a twenty-four hour period. Thus, if an episode of Nova 
is scheduled at 8:00 p.m. on Sunday, a box of contrasting shade will be located in the intersection of the Sunday row 
and in the 8:00 p.m. column. The active area 2302 can be moved horizontally by arrows 56, 58 and vertically by arrows 
45 52, 54 of keypad 50. If there are multiple occurrences of Nova on a particular night at a particular time, that fact is 
shown by a box, located at the intersection of the row of that day and the column of that time, having an asterisk (*) 
located in the box. The asterisk (*) indicates the presence of a logical stack of multiple programs of Nova appearing 
on competing channels, such as occurs on Wednesday night at 8:00 p.m. To move or navigate through a stack of 
programs (or stack of episodes of programs with the same name, for example) on a particular day at a particular time 
50 slot, the viewer uses the double up arrows button 60 and the double down arrows button 62 for this third degree of 
freedom. Because the display 2300 may require greater visual discrimination than program title as a matter of course, 
the frame information window 1904 is larger than usual for display 2300. Further, frame 2304 is annotated with arrows 
indicating the existence of program episodes above or below the active areas' position in the stack. If the cable 16 has 
access to 300 plus 'channels' of programming, it is conceivable that some programs, such as Nova will be offered by 
55 more than one channel at the same time. As described previously, once the viewer has moved the active area to a 
particular entry in two or three dimensions and actuates the select {*) button 64, a selection is made. In this case, the 
selection sets an alarm to record a specific channel at a specific time at some day in the near future. 

Referring back to FIGs. 1 and 2, overall operation of the apparatus of the invention is described. Program schedule 
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data is supplied via the cable 1 6. The program schedule data is either transmitted periodically and the STB 1 2 receives 
this program schedule data and stores it in RAM 40. Alternatively, all or part of the program schedule data could be 
dynamically requested and received by STB 1 2, which stores it in RAM 40. Program data such as this is commercially 
available from TVData, Inc. and other similar concerns. The data or records of the program schedule data are in a pre- 

s arranged format, such as Microsoft Access or some other simitar database format, to facilitate rapid storage, sorting 
and retrieval by CPU 34. Each record of a TV program has its date of appearance, its time of appearance, its title, its 
channel and/or network, its categorizations, and a textual or visual preview (if any). A listing of a prototype program 
that sorts, displays and interactively responds to a viewer's input is shown in the CPU program listing given below. 
This listing is in Visual Basic programming language of Microsoft Corporation. 

io The Visual Basic prototype program consists of a collection of forms, each form having its own set of event handlers. 

In this case, the only significant external events are button actuations because of the remote control interface. A frame 
form provides the background and information and status bars used by most of the individual displays. A rolodex form 
provides the menus. The other forms are mostly schedule or list displays of various kinds, including specialized varieties 
such as the alphanumeric selection list form. 

'5 The control part of the program begins with a procedure which loads all forms and activates the frame and rolodex, 

i.e. the top display, to begin. Forms hand off control by setting a return code and hiding themselves, thereby activating 
the form directly beneath (usually the frame). Both the frame form and the rolodex form perform different actions de- 
pending on the value of the return code. The frame form's most common action is to activate another form, and much 
of the control flow of the application is handled by the frame form code. The rolodex form is used to display several 

20 different menu hierarchies, most importantly view selection and filter choice. 
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==sss= COMING form code ====== 

This form displays a TV schedule for several hours of one day. 

This version uses drawing methods for the program shapes 
las opposed to creating a control shape for each program) 
and "point & shoot" or "visually closest" navigation. 



Cp c i on Explicit 

*:im ailData(S) As snapshot 'all data within time period 

Dir. f iiterData<8 ) As snapshot *a snapshot for each day in the view 

10 Dim NDays As Integer * number of days in display 

Dim NSlots As Integer 'number of time slots in display 

Dim NStation As Integer 'number of stations in display 

Dim MaxStation As Integer 'total number of stations in database 

Dim colorFieid As String 'the database field that determines item color 

15 * (the field should contain an integer) 

Dim inPreview As Integer 'boolean 'should the preview message show? 
Const sideGap = .05 'space at beginning and end of program 
Const topGAP * 4 'space btwn time label and first program shape 
Dim refDate 'reference date for data time slots 

Const lblHeighc = 40 'height of day and time labels (in 500 scale) 

20 Const MINProgWidth - .2 'minimum width of a program shape as fraction of slot 

Dim slots PerDay As Integer 'number of slots allowed per day 
Dim currDay 'number of current day 
Dim startTime 'start day and time of display 



25 



Dim TSBegin As Long * first time slot 
Dim TSEnd As Long 'Last time slot 
Dim TScurrent As Long 'current time slot 

Dim rowOffset 'distance between (tops of) rows in the schedule 



Sub ApplyFilter () 

'filter program data, keeping only the programs that match the query in filters (TV) 
'also makes sure the number of stations is correct 
'and the DB field determining the color is set 
Dim i As Integer 'counter 



40 



If 



Els 



End 
For 



Nex 

r.d Sub 



InStr (f 
NStat 
color 

e 

NStati 
colorF 
If 

allDat 
Set 
z i 



Iters (currDomain) , "Station" ) Then 
on - 10 'note: this probably should be a variable or const, not 10 
ield - "Type" 

on = MaxStation 
ield = "Category* 

To NDays 

a(i). Filter » filters ( currDomain) 
IterData(i) = allData ( i ) . CreateSnapshot ( ) 



Sub Char.geSei id As String) 

* Performs the navigation according to the direction parameter 
Dir. current, firstMatch 'database markers 
Dim success As Integer 'boolean 
Dim s As Integer 'station 
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Dim e 

Dim TS As Long 



'FinishTS (end) 
' time-slot 



Din F As snapshot 
Dim aDay As Integer 
Dim disc 'distance 

Dim best As Long, bestMark 'as database marker 

' se: info about current place in database 

current = filter Data IcurrDay) .Bookmark 

Set F * f ilterData (currDay) 

s = FCStation") 

e = Ft "FinishTS" J 

TS = TScurrent 

aDay = currDay 

success = False 

best = 9999 

If d = -Right- Then 

'check immediace right 

F . MoveNext 

If Not F • EOF Then 

TS = Ft "StartTS") 

'success = same station and starts right after current program 
success = (F ( -Station" ) * s) And (TS <« e + 1) 
End If 

If Not success Then 

■check all to right for "closest" 

F.MoveFirst 

While Not F . EOF 



If F ( "FinishTS* ) > e Then 

dist = VDistHorizts, e. F{ "Station" > , F ( "StartTS * ) ) 
If dist <- best Then 
' save best so far 
best = dist 
success ~ True 
bestMark = F. Bookmark 
End If 
End If 
F . MoveNext 



Wend 

If success Then 

'move to the best one 
F. Bookmark = bestMark 
TS = Ft "StartTS") 
End If 
End If 
Elself d = "Left- Then 

'check immediate left 
F . MovePrevious 
If Not F.BOF Then 



'success = same station and finishes right before current program 
success = (F( -Station" ) = s) And { F ( "FinishTS" ) >= TS - 1) 



TS = F( "StartTS") 



50 



End If 
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If Not success Then 
"check ail to left for 'closest' 
F.MoveFirst 
s While Not F.EOF 

If F( •StArtTS") < TScurrent Then 

disc = VDistHoriz (F( "Station" ) . F( "FinishTS" > . s, TScurrenti 
If dist < best Then 
'keep best so far 
best = dist 

10 success « True 

bestMark = F. Bookmark 
End If 
End If 
F . MoveNext 

1S Wend 

If success Then 

•move to best one 
F.3ookmark » bestMark 
TS = F(-startTS') 
End If 
20 End If 

Elself d = -Down- Then 

'check all programs below current one, keeping "closest" 
While Not F . EOF 

If F ( "Station* ) > s Then 
25 dist = VDistVert (s, TScurrent, e, F [ "Station" ) , F ( "StartTS " ) , 

F( "Fir.ishTS- ) ) 

If dist < best Then 
best = dist 
success ~ True 
bestMark - F. Bookmark 
End If 
End If 
F . MoveNext 

Wend 

If success Then 

F. Bookmark * bestMark 
TS = F( "StartTS" > 
End If 
Elself d = "Up- Then 

'check all programs above current one. keeping "closest" 
While Not F.BOF 

If F< "Station - ) < s Then 

dist a VDistVertts, TScurrent. e, F ( "Station" } , F f "StartTS" ) . 

F ( "FinishTS" ) ) 

If dist < best Then 
best = dist 
success = True 
bestMark - F. Bookmark 
End If 
End If 

F . McvePrevious 

Wend 

If success Then 
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F. Bookmark = bestMark 
TS = FCStartTS") 
End If 
End If 

If success Then 

'update variables and display 
TScurren- = TS 
currDay = a Day 
DisplayProg 

Else 

'restore old position in databasse 
filterData (currDay) .Bookmark = current 
End If 
End Sub 

Sub DisplayProg f ) 

'set current program info in info box 

'highlight the appropriate program shape in the display 
Dim F As snapshot 
Dim msg As String 

Set F = filterDa tat currDay) 

'set highlight 

shpProg ( 0) .Visible » False 

selector .Visible = False 

Position shpProg(O), F( "Start"), F f "Finish" ) , F{ "Station") 
CPlace 0, selector. shpProg(O) 
shpProg ( 0 > . Vi s ible = True 
selector .Visible = True 

'message for info box 

msg = StationString(F ( "Station" ) ) & • - " & F ( "Title* ) & " " 
msg = msg & Format ( F ( "Start " ) , -hrmm AM/PM") 
msg = msg & " to • & Format (F( "Finish" } . "h:mm AM/PM") 
Setlnfo msg, Color ( F (colorField) Mod 9) 
End Sub 

Sub Do Preview ( ) 

•Construct an appropriate preview message and display it 
Dim msg As String 

msg = "Station: " & StationString ( filterData (currDay M "Station" ) ) 

msg = msg & Chr[13) & "Title: " & filterData (currDay >< "Tit le" ) & Chr(13) 

msg » msg & CategoryString (( filterData (currDay >< "Type" )) , 
( filterData (currDay) ( "Category" ) ) ) 

msg = msg & Chr(13) & "Time: " & Format ( filterData ( currDay )< "Start "> . "rrunn d.yy 
h:mm AM/PM") 

msg = msg & Chr(13) & * to " & Format ( filterData (currDay) ( "Finish" > , "h:mm 

AM/PM* ) 

'show popup with preview message 
popup -Caption = msg 
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popup. Top - lblTime (!) .Top + 2 * lblTime 1 1 >. Height 
popup. Left - 2 

popup. Width = slotsPerDay - 3 
popup. Visible = True 
inPreview = True 
End Sub 

Sub OoSeiect ( ) 

'set selection info and go to TV 

userStation = filterData (currDay) ( "Station" ) 

userStart = filterData IcurrDay) ( "Start * J 

returnCode = TOTV 

Me. Hide 
End Sub 

Sub DrawProg (colorlndex. start, finish, station) 
'use drawing methods to draw a program shape 

'note: f orm. AutoRedraw should be set to true so the drawings are persistant 
Dim L, R, t. B *left, right, top. bottom 
Dim dayStart 
Dim edge 

convert a day/ time to position in NSlot scale 
dayStart - startTime + currDay - 1 
L = (start - dayStart) * 48 
R * (finish - dayStart) * 48 

clip shapes off at day boundaries 
If L < 0 Then L = 0 

If R > slotsPerDay Then R = slotsPerDay 

'place in correct day, with small gap between programs 

edge = (currDay - 1) * slotsPerDay 

L = L * edge + sideGap 

R = R + edge - sideGap 

'correct for min width to make sure program will show up 
If R - L < MINProgWidth Then R = L + MINProgWidth 
'set top according to station 

'note: this trick will not work if "favorite stations" are not numbered l..n 

rowOffset = ( (500 - 2 * lblHeight - shpProg(O) .Height) / NStation) 

t = shpSlot (0) .Top + topGAP + (station - 1) • rowOffset 

B = t + shpProg ( 0) . Height 

•draw the box with the correct color 

drawwidth = 1 

Ke.FillStyle = 0 'solid 

Me.FillColor « Color (colorlndex Mod 9) 

Line (L, t)-Step(R - L, B - t ) , , B 'the line command with argument B draws a 

bcx 

End Sub 

Sub Fcr:r,_Activate () 

'make necessary changes to display, reset info and status bars 
Dim i As Integer ' counter 
Static saveFilter As String 

If saveFilter = filters ( currDomain) Then saraeFilter = True 
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saveFilter = £ ilters (curr Domain* 

SetStatus "TV Coming Up: " & currFiiter (TV) . greyCOLOR 
If newUser Then 

popup. Caption = "Press 'category' to change the kind of programs dipiayed. 
popup . Visible = True 
newUser = False 
End If 

'if not sane filter, redo display 
If Not saroeFilter Then 

Setlnfo 'Loading program information,..", GREY 

shpProg 1 0) .Visible = False 

selector .Visible = False 

ApplyFil ter 

MakeDisplay 
End If 

' in every case 
DisplayProg 

If inPreview Then DoPreview 
End Sub 

Sub Forni_KeyDown (KeyCode As Integer, Shift As Integer) 
Select Case KeyCode 
Case Asc t "Q" ) 

End 
Case B_BACK 

returnCode = BACK 
Me. Hide 
Case a.HELP 

InvokeHelp 
Case B_ PREVIEW 

If inPreview Then 

popup. Visible = False 
inPreview = False 

Else 

inPreview = True 
End If 
Case B_RIGHT 

If Not f ilterData (currDay) .EOF Then ChangeSel ("Right") 
Case B_LEFT 

If Not f ilterData (currDay) . EOF Then ChangeSel ("Left") 
Case B_UP 

If Not f ilterData (currDay J . EOF Then ChangeSel CUp") 
Case B_DOWN 

If Not f ilterData (currDay ) .EOF Then ChangeSel ("Down") 
Case B_SELECT 

If Not f ilterData (currDay) . EOF Then DoSeiect 
Case 8_ PAGEDOWN 
Case 3_?AGEUP 
Case 3_ FILTER 

returnCode = Filter 

Me. Hide 
Case B_0 
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returr.Code * SHORTCUT 
Me . Hide 
End Select 

• ir. any case 
If inPreview Then 
Do Preview 

Else 

popup. Visible - False 
End If 
Ir.d Sub 



Sub Form^Load ( ) 

3im i As Integer 
15 Dim t 'as time 

* set form colors and fonts 
Me. BackColor * formCOLOR 
shpProg< 0 > .BackColor = BorderColor 
20 IblDay (0 > .BackColor = backgroundCOLOR 

lblAM. BackCol or = backgroundCOLOR 
IbiPM. BackColor = backgroundCOLOR 
selector . BorderColor = BorderColor 
dayLine(O) .BorderColor - divideColor 
lblTime{0) .ForeColor = slotCOLOR 
25 shpSlot ( 0) . BorderColor = slotCOLOR 

If displayMode = "TV" Then 

lblDay(O) .FontSize = small FONT 
IblTime (0) . FontSize = small FONT 
IblAM. FontSize » small FONT 
3Q iblPM. FontSize = small FONT 

popup. FontSize = mediuitiFONT 

Else 

IblDay(O) .FontSize = largeFONT 
IblTime (0) .FontSize = largeFONT 
IblAM. FontSize = largeFONT 
35 IblPM. FontSize « largeFONT 

popup. FontSize » largeFONT 
End If 

'set scale and size objects 

SizeAForm Me. DispTop, DispHeight, DispLeft, DispWidth 
4Q Me. Scale (0, 0>-<S00. 500) 

SizeAControl lblDay(O) . 0, lblHeight. 0. 500 

'note: the AM/ PM labels would be placed when time is filtered 

SizeAControl IblPM, 0. lblHeight, 0, 30 

SizeAControl IblAM, 0. lblHeight, 500 - 30, 30 

SizeAControl IblTime (0) , lblHeight, lblHeight, 0, 50 
45 SizeAControl shpSlot<0>, 2 * lblHeight ♦ .5 * topGAP. 500 - 2 * lblHeight, 0. 50 

SizeAControl popup, 250, 200, 250, 200 

selector .BorderWidth = 1 

dayLine ( 0 ) . Yl « 0 

dayLine(O) .Y2 = 500 
„ ' initialize variables 



55 



15 





EP 0 735 749 A2 



scartTime ~ f akeToday «• fakeTime 'this would be se: at activate to current half 



NDays = 1 

slotsPerDay = 24 

NSlots = NDays * slotsPerDay 

sameFilter = False 

same View = False 

inPreview - False 

'set form scale and place permantent stuff (day and time labels) 
Me.ScaleWidth = NSlots 
Load IblDay(l) 

SizeAControl lblDay(l), 0, IblHeight. 0, slotsPerDay 
lblDayd ) .Caption = DayStrir.g (startTime, "long") 
lblDay(l) .Visible = True 
IblTime (0) .Width = 1 
For i = 1 To slotsPerDay 

Load IblTime(i) 

IblTime < i ) .Move i - 1 

t = DateAddCn". 30 w (i - 1), startTime) 'add 30 minute increments 
IbiTine * i ) .Caption = TimeLabel ( t ) 
IblTime ( i) .Visible = True 
IblTime t i ) . ZOrder 
Next i 



same View = True 
End Sub 

Sub InputData ( ) 
'part of form_load 

'opens the database and creates allData snapshots 

Dim DB As database 

Dim Re f Snap As snapshot 

Set D3 = Op enDat abase (TVDB) 

'get reference date and number of stations 
Set RefSnap » DB . CreateSnapshot ( "Reference" ) 
Ref Snap . FindFirst "Name = 'Date'" 
refDate = Da teValue (Ref Snap ( "Data" ) ) 
RefSnap. FindFirst "Name = 'NStations'" 
MaxStation = Val ( Ref Snap ( "Data" ) ) 

Set allData(0> - DB.CreateSnapshot ( "Programs" ) 
assumes data already sorted 



filter for particular time period, would happen at each half -hour change 
TSBegin = Abs ( DateDif f ( "n" . startTime. refDate) \ 30) 
TSEnd = TSBegin + slotsPerDay - 1 'check that slotsPerDay is set 
allData ( 0) . Filter = Overlap (TSBegin . TSEnd) 
Sec aliData(i) » allData (0) .CreateSnapshot ( ) 
Set allData(O) » Nothing 'won't be needing everything 



"-our 



25 



InputData 
Fornv_Ac t i va t e 
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Er.d Sub 

Sub MakeDispiay () 

'create the display of programs from the data 
Dim i As Integer 'counter 
Dim d As Integer 'day 
Dim F As snapshot "convenience 

If Not sameView Then 

'would need to reset captions for times and day 
End If 

•place program shapes 

Cls 'clear the form of previous drawings 
Do Events 'make it so 
For d = 1 To NDays 
currDay = d 

'draw lines to separate time slots 
For i = 0 To slotsPerDay 
drawwidth = 4 

Line (i, shpSlot { 0) . Top) - ( i , 500), slotCOLOR 
Next i 

'draw program shape for each program in data 
Set F = f ixterData (d) 
If Not F . EOF Then 
F .MoveFirst 
Do While Not F . EOF 

DrawProg F < colorField) , F< "Start" >, F< "Finish" ), F( "Station") 
F . MoveNext 

Loop 

F. MoveFirst 
End If 
Next d 

'initialize stuff 
TScurrent = TSBegin 
currDay s i 
shpProg ( 0 ) . ZOrder 
selector . ZOrder 
Set F = filterData (currDay) 
' find a program to start on 
Do While TScurrent <= TSEnd 

F.FindFirst Overlap (TScurrent , TScurrent) 

If Not F.NoMatch Then 
DisplayProg 
Exit Do 

End If 

TScurrent = TScurrent + 1 

Loop 

'make sure TScurrent is in range 
If TScurrent > TSEnd Then TScurrent = TSBegin 
End Sub 

Sub Position (shape As Control, start, finish, station) 
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'position a program shape control 

Dim relative!*, reiativeW, day Start 
Dim edge 

'convert a day/time to position in NSlot scale 

dayStart = startTime *- currDay - 1 

relativeL = (start - dayStart) * 48 

reiativeW (finish - dayStart) * 48 - relativeL 

'clip shapes off at day boundaries 

If relativeL < 0 Then 

reiativeW = reiativeW + relativeL 

relativeL = 0 
End If 

If reiativeW * relativeL > slotsPerDay Then reiativeW = slot sPer Day - relativeL 

'set left and width of shape, leaving small gap between programs 

edge =* (currDay - 1) * slotsPerDay 

shape. Left = relativeL ♦ edge + sideGap 

shape. Width = reiativeW - 2 * sideGap 

'set minimum width so program is visible 

If shape. Width < MINProgWidth Then shape. width = MINProgWidth 
' set top according to station 

'note: this will not work if "favorite" stations are not numbered l..n 
rowOffset = ((500 - 2 * lblHeight - shpProg(O) .Height) / NStation) 
shape. Top = shpSlot ( 0 ) . Top + topGAP + (station - 1) * rowOffset 
End Sub 

Function VDistHoriz (stationl, finish, station2, start) 

'computes a value for the "visual" left-right distance between two programs 
'requires that the earlier program come first 

'note: needs refinement, does not work satisfactorily, especially with crowded 
displays 

Dim deltaR, deltaT 'change in row and time 
Dim rowl, row2 

rowl = stationl 
row2 = station2 

'note: row calculations could be more complicated if stations not numbered l..n 
deltaR - Abstrowl - row2) * (100 / NStation) 
deltaT = (start - finish) * (100 / slotsPerDay) 
'penalize programs that are more up&down than to side 

If deltaT <* 1 Then deltaT » (finish ♦ 3 - start) * (100 / slotsPerDay) 
If deltaT <■ 1 Then deltaT = 100 / slotsPerDay ' don * t allow zero 
VDistHoriz = deltaR * deltaT 
End Function 

"unction VDistVert (stationl, startl. finishl. station2, start2, finish2) 
'computes a value for the "visual" up-down distance between two programs 
note: needs refinement 

Dim deltaR, deltaT 'change in row and time 

Dim rowl , row2 

rowl = stationl 
row2 = station2 

'note: row calculations could be more complicated if stations not numbered l..r. 
deltaR = Abs(rowl - row2 ) / NStation 
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If scarcl > finish2 Then 

deltaT * Abststartl - finish2) 
Zlself start2 > finishl Then 

deltaT = Abs(start2 - finishl) 

Else 

deltaT = 0 
End If 

VDistVert = deltaR * 2 * deltaT 
£r.d Function 

•====== FRAME form code ===»== 

'This form owns the standard info and status bars and allows 
' transfer of control from form to form. 
Option Explicit 

Sub FornuActivate ( ) 

•decides which other form should show in its display area 
Select Case returnCode 
Case SHOWVIEW 

views (cur r Domain) .Show 
Case PICK 

f rmSelect . Show 
Case TOTV 

f rmTV. Show 
Case LASTVIEW 

sameFilter = True 

views ( cur r Domain) .Show 
Case STARTUP 

'do nothing--don * t want rolodex to show yet 
Case Else 

f rmDex.Show 
End Select 
End Sub 

Sub Form^X eyDown {KeyCode As Integer, Shift As Integer) 

If KeyCode » AscCQ") Then 
End 

End If 
End Sub 

Sub Form_Load ( ) 

■set colors and fonts 

Me.3ackColor s formCOLOR 

ssplnf o . FontSize » mediumFONT 

sspStatus . FontSize » mediumFONT 

•use builtin object to size background 

ScrWidth = Screen. Width 

ScrHeight = Screen . Height 

If displayMode - -mini* Then 

■ for taking screen prints 

ScrHeight = ScrHeight * .54 

ScrWidth = ScrWidth * .712 

displayMode = 'TV* 

Else 
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'resize to fit TV 
ScrHeight = ScrHeight * .53 
End If 

5 'set form to fill screen 

frmFrame. Top = 0 
frmFrame. Height = ScrHeight 
f rmFrame . Lef t ■ 0 
frmFrame. Width = ScrWidth 
'info line at top of screen 

10 

ssplnfo. Visible » True 
'status line at bottom of screen 
sspStatus . Visible = True 
'define available display area 
DispTop = ssplnfo .Height ♦ 1.5 
15 DispHeight = frmFrame .Height - (sspStatus . Height + 1.5) - DispTop 

DispLeft = 0 

Dispwidth = frmFrame. Width 
End Sub 

2Q Sub Setups to tus ( ) 

End Sub 

■ senses LIST f OCTT1 COde = 

•This code is used for all three list forms (TV, Movies, Shopping) 
Option Explicit 
25 Dim D3 As database ' full database with indexes 

Dim BlinkControl As Control 'set to blinking object (currently none) 
Dim itemSelected As Integer 'from 1 to MAXDI SPLAY 
Dim locSelected As Integer 'from 1 to MAXLOC 
Dim inPreview As Integer 'boolean 

Dim captionField As String 'the database field that is used for display 
Dim startTime * the start time for the TV list 
Dim TS As Long 'the time slot for the TV list 

Dim rowOffset 'difference between tops of two consecutive reduced items 
Dim browsing As String 'type of current shopping list 
35 Dim colorField As String 'field which determines color (should be of type integer) 

'display parameters 

Const MAXDI SPLAY « 6 'Number of items in close up 
Dim MAXITEM As Integer 'Number of items in whole list 
40 Dim MAXLOC As Integer 'Number of locator positions 

Dim whichrltem( MAXDI SPLAY) As Integer 'which rl terns are in the current display 

'define sizes of locator and selector 
Const GAP = 10 'space around lists 
Const EXTRA = 70 'room for longer programs 
45 Const reducedEXTRA =20 'room for longer programs in reduced rep 

Const T * 50 'reduced list 

Const H = 1000 - 2 * T 
Const locL =30 'display area 
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Ccnst locW = 100 

Const dispL = locW + 2 * locL 

Const dispW = 1000 - dispL - locL 
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'database snapshots 
Dim allData As snapshot 
Di.-n itemData As snapshot 
Dim storeData As snapshot 
Dim deptData As snapshot 
Dim stuffData As snapshot 
Dun filterData As snapshot 

Dim marker (1000) As String 'bookmarks of each MAXDI SPLAY items 
Dim locStart (1000) 'rltem index for start of locator 

Sub ApplyFilter (> 

'filter the data according to user choice 
Dim sortString As String 



If Me Is TVlist Then 

captionField = "Title" 

sortString = " " 

colorField = "Type" 
El self Me Is MOVlist Then 

20 

If same View Then 

keep allData as it is 

Else 

'reset allData to all movies 
LoadData 

25 allData. Filter = viewFilter 

Set allData = allData. CreateSnapshot ( ) 
End If 

captionField » "Title" 
sortString = "Title" 
colorField = "Type" 
Elself Me Is SHOPlist Then 

'note: This would all be done totally differently. Don't bother 

understanding it, just rewrite it. 
Select Case i ilters < cur r Domain) 
Case "store" 
35 browsing s "store" 

Set allData » storeData 
captionField « "name* 
filters (currDoraain) = "" 
sortString « "name" 
colorField = 
40 Case "dept" 

browsing = "dept" 

deptData. Fir.dFirst "name - " & userString & 

userString = "* -fix-- this is cheating, I shouldn't use userString 
If deptData .NoMatch Then 
45 Set allData « deptData 

filters (currDomain) = ■• 

Else 

browsing = "stuff- 
filters (currDomain) = "[dept code) = " & deptData ( "code" ) 
Set allData = stuffData 
50 End If 
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captionField = "name* 
sortString o 'name* 
colorField » " " 
Case •item" 

browsing = "item* 
Set allData = itemData 
captionField = *name" 
colorField = " " 

f ilters (curr Domain) - "11*1116 like *' & userString & 

sortString = "name" 
Case Else 

browsing » "stuff" 

captionField = 'name" 

sortString « "name" 

colorField = "[item codej" 

Set allOata = stuff Data 
End Select 
End If 

allData . Filter o filters (currDomain) 
If filters (currDomain) a Then 

allData.FindFirst "Not " & captionField &•=•■" 

Else 

allData.FindFirst allData . Filter 
End If 

If allData. NoMatch Then 
MAX ITEM = 0 

Else 

MAXITEM » 1 'temporary setting just to make sure it isn 
Set filterData = allData .CreateSnapshot ( ) 
f ilterData . Sort sortString 

Set filterData = filterData .CreateSnapshot { ) 
End If 
End Sub 

Sub BlinkStart (C As Control, vis ) 

Set BlinkControl s C 

BlinkControl . Visible «* vis 

tmrBl ink. Enabled = True 
End Sub 

Sub BlinkStop (vis) 

tmrBl ink. Enabled - False 
If BlinkControl Is Nothing Then 
'do nothing 

Else 

BlinkControl .Visible = True 
End If 

Set BlinkControl = Nothing 
End Sub 

Sub ChangeLoc (direct As String) 
'page up or down with the locator 
Select Case direct 
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Case "Up- 

If locSelected > 1 Then 

locSelected = locSelected - 1 
s RedoDi splay 

End If 
Case "Down" 

If locSelected < MAXLOC Then 

locSelected = locSelected + 1 
RedcDisplay 
10 End If 

End Select 
End Sub 

Sub Changes el (direct As String) 
1S 'navigate up or down one selection 

Select Case direct 
Case "Up" 

If itemSelected > 1 Then 

'move up within current display 
itemSelected = itemSelected - 1 
20 select or. Top » itemBox ( itemSelected) .Top - GAP 

rltem(O) -Top = rltem (whichrltem ( itemSelected) ) .Top 
rltem(O) .Left - locL - GAP 
r Item (0) .Width = locW ♦ 2 * GAP 
Setltemlnfo 
2s Elself locSelected > 1 Then 

•display previous section of list 
itemSelected = MAXDI SPLAY 
locSelected = locSelected - 1 
RedoDi splay 
End If 
30 Case "Down" 

If itemSelected < MAXDI SPLAY Then 

'move down within current display 
'do not move to select an empty item 

If (locSelected - 1) * MAXDI S PLAY «■ itemSelected < MAX ITEM Then 
35 itemSelected - itemSelected + 1 

selector. Top = itemBox ( itemSelected) .Top - GAP 
rItem(0).Top a rItem(whichrItem(itemSelected) ) .Top 
rltem(O) .Left ■ locL - GAP 
rltem(O) .Width * locW * 2 * GAP 
Setltemlnfo 
40 End If 

Elself locSelected < MAXLOC Then 
'display next section of list 
itemSelected » 1 
locSelected = locSelected + 1 
45 RedoDisplay 
End If 
End Select 

rltem(O) .Visible = True 
End Sub 

50 Sub Do Preview () 
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' shew preview window and preview locator 
Dim i As Integer 'counter 

in Preview = True 

'hide other stuff 
locator .Visible = False 
selector .Visible = False 
For i - 1 To MAXDI SPLAY 

itemBox(i) .Visible ° False 
leftArrow( i ) .Visible = False 
rightArrow(i) .Visible = False 
Next i 

15 previewWin. Caption = "Getting preview, 

previewwin . ZOrder 
previewwin. visible » True 
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ShowPreview 
End Sub 



Sub DoSelect () 

'act on the current selected item 
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If Me Is TVlist Then 
2$ 'set selection data and go to TV 

userStation = filterData ( "Station" } 
userStart = filterData ( "Start " ) 
retumCode = TOTV 
Me. Hide 
Elself Me Is MOVlist Then 

■display "order movie" message 
sameFilter » True 

TellUser "You would be asked to confirm your order of • & 
filterData( "Title" ) 

Elself Me Is SHOPlist Then 
35 Select Case browsing 

Case "stuff" 

sameFilter = True 

TellUser "You would be asked to confirm your order of * & 
filterData ( "name* ) 

Case "store" 

40 filters (cur rDomain) » "[store code] - ' k filterData < "code" ) 

Form_Ac t i va t e 
Case "item" 

fi Iters (currDomain) = "[item code] = " & filterData { "code" ) 
Form_Activate 
45 Case "dept" 

filters (currDomain) = " [dept code] » " & f il terData ( "code" ) 
Form_Activate 
End Select 
End If 
End Sub 
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Sub EndPreview ( ) 

•go back co regular list operation 
Dim i As Integer • counter 

previewWin. Visible = False 
inPreview - False 
locator .Visible - True 
selector. Visible = True 
previewWin. Top - displayList . Top 
RedoDisplay 
End Sub 

Sub Form^Activate {) 

Dim i As Integer 'counter 

Dim section As Integer 'count the number of locator locations 

Dim NVisible As Integer 'tally the visible shapes in a section 

Dim msg As String 

Static saveFilter As String 

Static saveView As String 

'check new filters against current filters 

If Not sameView Then sameView = (saveView = viewFilter) 

saveView = viewFilter 

If Not saroeFilter Then saineFilter = (saveFilter = filters (currDomain) ) 
saveFilter = filters (currDomain) 

SetStatus currViewt currDomain) & currFilter (currDomain) , greyCOLOR 

If sameFilter And sameView Then 

'keep everything the same as last time 
If newUser And Not Me Is SHOPlist Then 

popup. Caption = "To change the category shown, press the 'Category' 



button. 



popup. Visible - True 

newUser = False 
End If 
RedoDisplay 

Else 

'clean up display 

Setlnfo "Selecting data, please wait...", GREY 
If MAX ITEM = 0 Then 

previewWin. Caption = "" 

previewWin. Visible = False 
End If 
DoEvents 

If in Preview Then End Pre view 

For i = 1 To MAXDI SPLAY 

itemBox(i J -Caption = 
Next i 

For i = 1 To MAXITEM 

Unload rltem(i) 
Next i 
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'filter new data 
ApplyFilter 
5 If MAX ITEM » 0 Then 

'give "no matches" msg 
locator. Visible = False 
rltem(O) .Visible » False 
For i = 1 To MAXDI SPLAY 
MAX ITEM = 0 

10 itemBox ti } .Visible = False 

leftArrow(i) .Visible = False 
rightArrow(i) .Visible " False 
Next i 

previewWin. Caption = *No matches were found" & Chr(I3) 
15 previewWin. Caption - previewWin. Caption & "Press 'Category' co change 

the selection." 

previewWin . ZOrder 
previewWin. Visible = True 
itemSelected - 0 
locSelected = 0 

20 Else 

'redo list display 
f il terData . Move Las t 
MAX IT EM = f il terData. RecordCount 
•set distance between items 
25 rowOffset » (H - rltem(O) .Height) / MAX ITEM 

If rowOffset > rltem(O) .Height + GAP Then rowOffset - rltem( 0 ). Height * 
GAP 'max distance 

rltem(O) .Visible * False 
rltem(O) .Top = T 

rltem(O) .Left = loeL * reducedEXTRA 
30 rltem(O) .Width = locW - 2 * reducedEXTRA 

rltem(O) .BackColor = itemCOLOR 
f ilterData.MoveFirst 
•size and place the item shapes 
•and set section bookmarks 
35 section = 0 'number of locator locations 

NVisible = MAXDI SPLAY 'so first section will be marked correctly 
For i = 1 To MAX ITEM 
Load rltem(i) 
If colorField <> ■■ Then 

rltem(i) .BackColor = Color ( Val ( f ilterOata I colorField) ) Mod 9) 
40 End If 

NVisible = NVisible + 1 
rltem(i).Top » T + ( i - 1 J * rowOffset 
If NVisible > MAXDI SPLAY Then 
' begin a new locator location 
45 section = section * 1 

locStart (section) = i 

marker (section) = filterData . Bookmark 
NVisible = 1 
End If 

If Me la TVlist Then 
50 'set length of reduced item 
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If filterData CStartTS" ) < TS Then 

rltem(i) .Left » rlteml i> - Left - reducedEXTRA 
rltera(i) .Width « r I tend) .Width ♦ reducedEXTRA 

End If 

If filterDataCFinishTS" ) > TS Then 

rltem(i) .Width = rl;em( i ) .Width * reducedEXTRA 
End If 
End If 

rltem(i) .ZOrder 
rltem(i) .Visible = True 
filter Data. MoveNext 
Next i 

MAXLOC = section 

iocStart (section ♦ 1) = MAX 1 7 EM ♦ 1 



'Bet length of minselector (use rltem(O) ) 

rltem(O) .Lef t = locL - GAP 

r Item (0) .Width = locw + 2 » GAP 

'initialize selector and locator 

itemSelected ~ 1 

locSelected = 1 

locator .Visible = True 

rltem(O) .BackColor = highlightCOLOR 

'set the captions in the itemfioxes 

RedoDi splay- 



End If 
End If 
End Sub 

Sub Fonn_KeyDown (KeyCode As Integer, Shift As Integer) 
popup. Visible = False 
Select Case KeyCode 
Case Asc ( "Q" ) 

End 
Case B_BACK 

If Me Is SHOP list And browsing = "item" Then 
'not exactly what we want 
returnCode = ALPHA 
Me. Hide 

Else 

returnCode = BACK 
Me. Hide 
End If 
Case B.HELP 

InvokeHeip 
Case B_ PREVIEW 

If inPreview Then 
EndPreview 

Else 

DoPreview 
End If 
Case B^S ELECT 

If MAXITEM > 0 Then DoSelect 
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Case B_UP 

If MAX ITEM > 0 Then ChangeSel ("Up* I 
Case B_DOWN 

If MAX ITEM > 0 Then ChangeSel ("Down') 
Case B_RIGHT 

If Me Is TVlist Then 

retumCode = COMING 
Me. Hide 
End If 
Case B_LEFT 
Case B_PAGEUP 

If inPreview Then 

•scroll preview 

If previewWin.Top < displayList .Top Then 
'move preview window down a screen 

previewWin.Top = previewWin.Top ♦ displayList .Height 
End If 

Else 

If MAXITEM > 0 Then ChangeLoc ("Up*) 
End If 
Case B_PAGEDOWN 

If inPreview Then 

*scroll preview 

If previewWin.Top + previewWin . Height > displayList . Top * 
displayList . Height Then 

•move preview window up a screen 

previewWin.Top * previewWin.Top - displayList . Height 
End If 

Else 

If MAXITEM > 0 Then ChangeLoc ("Down") 
End If 
Case B_FILTER 

If Not Me Is SHOPlist Then 
returnCode » Filter 
Me. Hide 
End If 
Case B_0 

retumCode = SHORTCUT 
Me. Hide 
End Select 
End Sub 

Sub Form_Load ( ) 

Dim i As Integer 'counter 
Dim itemRoom 

' set colors and fonts 
itemBox(O) .FontSize = large FONT 
leftArrow(G ). FontSize = largeFONT 
right Arrow ( 0 ) . FontSize o largeFONT 
If displayMode = "PC" Then 

popup. FontSize = largeFONT 

previewWin. Font Size = largeFONT 

Else 
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previewWin. Font Size * mediumFONT 
popup. FontSize » small FONT 
End If 

rltem(O) . BackColor = itemCOLOR 
selector. FillColor » highlightCOLOR 
displayList.FillColor = backgroundCOLOR 
previewWin. BackColor = backgroundCOLOR 
locator. FillColor = backgroundCOLOR 
itemBox(O) . 3ackColor = itemCOLOR 
leftArrow(O) .BackColor = itemCOLOR 
rightArrow(O) .BackColor = itemCOLOR 
shpSlot .BorderColor = slotCOLOR 
'si2e the objects to the screen 

SizeAForm He. DispTop, DispHeight, DispLeft, DispWidth 
Me. Scale <0, 0)-<1000, 1000) 

SizeAControl locator, T - GAP. H ♦ CAP, locL - GAP. locW + 2 * GAP 

SizeAControl shpSlot, T. H. locL ♦ reducedEXTRA, locW - 2 • reducedEXTRA 

SizeAControl displayList, T - GAP, H + GAP, dispL, dispW 

SizeAControl popup, dispW / 2, 4 * locW, dispW / 2, 4 * locW 

CPlace 1, previewWin, displayList 

locator . ZOrder 

shpSlot .ZOrder 

rltem(O) .ZOrder 

itemRoom » H / MAXDI SPLAY 

SizeAControl itemBox(O), T ♦ (.5 * GAP), itemRoom - GAP, dispL ♦ EXTRA, dispW - 
2 * EXTRA 

SizeAControl patch(O), 50. (6.8 * itemBox(O) .Height] . (12.3 * itemBoxt 0 ) .Width) , 
(7 * itemBox(O) .Height) 

If displayMode = "TV" Then 

patchIO) .Left = 8. OB * itemBox ( 0 1 . Width 

patch (0) .Height = 3.7 • itemBox (0) .Height 
End If 

SizeAControl lef tArrow(O) , T «■ (.5 * GAP). itemRoom - GAP, dispL, EXTRA 
SizeAControl rightArrow(O) , T + { . 5 * GAP), itemRoom - GAP, dispL + dispW - 
EXTRA. EXTRA 

SizeAControl selector, T, itemRoom + GAP. dispL, dispW 

selector . ZOrder 

For i = 1 To MAXDI SPLAY 

'Load itemBox<i) 'Now created at design time- -fixed number (6) 

itemBox(i) .Visible = False 

CCopy itemBox(O), itemBox(i) 

patch* i ) .Visible a False 

CPlace 0, patch(i), patch (0) 

itemBox(i) .Top =* itemBox (0) .Top + (i - 1) • itemRoom 
Load leftArrow(i) 

leftArrow(i) .Top ~ itemBox ( i ) .Top 
Load rightArrow(i) 

rightArrow(i) .Top « i temBox I i ) . Top 
Next i 

* load the list data and set up the display 
sameFilter = False 
same View = False 
LoadData 
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Fo rm_Ac t i va t e 
sameFiiter = True 
End Sub 

Function ItemString () As String 
*set mag to be used in info bar 
Dim msg As String 

If Me Is TVlisr Then 

rasg = Format ( filterData ( "Title" ) > 4 ' on " 

msg - msg & Stat ionString ( filterData { "Station" ) ) & " 

msg = msg & TimeString ( filterData ( "Start ") ) & " to • 

msg = msg & TimeString ( filterData ( 'Finish" ) ) 
El self Me Is MOVlist Then 

msg * Format < filterData ( "Title - > ) 

msg » msg & - & Format < filterData < "Year" ) > 
Elself Me Is SHOPlist Then 

Select Case browsing 

Case "stuff" 

msg = Format (filterData ( "name M > &"-$"& Format ( filterData ( "price" ) ) 
End Select 
End If 

itemString = msg 
End Function 

Sub LoadData ( ) 

Dim re f Snap As snapshot 
Dim refDate 



' load in the database as a snapshot 
If Me Is TVlist Then 
30 start Time » fakeToday + fakeTime 

Set DB = Op enD at abase ( TVDB ) 

Set refSnap = DB . CreateSnapshot ( "Reference " ) 
ref Snap. FindFirst "Name = 'Date'" 
refDate = DateValue (ref Snap ( "Data* ) ) 
35 Set allData = DB .CreateSnapshot C Programs" ) 

■filter for time would really happen at activate 
TS a tstartTime - refDate) * 48 
allData. Filter = Overlap (TS, TS) 
Set allData « allData. CreateSnapshot { ) 
Elself Me Is MOVlist Then 
40 Set DB = OpenDatabase(MVDB) 

Set allData = DB .CreateSnapshot ( "Movies" ) 
Elself Me Is SHOPlist Then 

Set DB = OpenDa t abase ( SPDB) 
Set itemData = DB . CreateSnapshot ( "Items" ) 
4S Set storeData » DB .CreateSnapshot ( "Stores" ) 

Set deptData = DB -CreateSnapshot { "Departments " ) 
Set stuff Data = DB . CreateSnapshot (" Stuff " ) 
End If 
End Sub 

SO Sub RedoDi splay <) 
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'sec che cape ions in the icemBoxes to correspond co items in locator 
* reposition locator and selector, update info box 

5 Dim last As Integer 

Dim i As Integer 

Dim Index As Integer 'index of rltem 

If MAX IT EM = 0 Then Exit Sub 
' figure first item location 
10 f ilterData . 3ookmark = marker f locSelected J 

Index = locStart (locSelected) 
For i = 1 To MAXDI SPLAY 

If f ilterData . EOF Then 
1$ 'hide empty itemflox 

itemBox(i) .Caption = 
itemBox(i) .visible » False 
leftArrowt i ). Visible = False 
rightArrow(i } .Visible a False 

Else 

20 whichrltemti J = Index *so we can highlight the correct rltem (reduced 

item) 

If colorField <> Then itemBox ( i ) . BackColor = 
Color < f ilterData (colorField) Mod 9) 

itemBox(i) .Caption * f ilterData (captionField) 
2$ If Not inPreview Then itemBox ( i ) .Visible ** True 

If Me Is TVlist And Not inPreview Then 

'show arrows to reflect program length 
If filterDatarScartTS") < TS Then 

leftArrow<i) .BackColor = itemBox(i) .BackColor 
leftArrow(i) .Visible = True 

30 Else 

leftArrow(i ) .Visible ~ False 
End If 

If f ilterData { •FinishTS" ) > TS Then 

rightArrow(i) .BackColor » itemBox ( i ). BackColor 
3$ rightArrow(i) .Visible « True 

Else 

rightArrow(i) .Visible = False 
End If 

' show color patch for subcategory 

patchi i ) . FillColor « Color ( f ilterData { "Category" ) Mod 9) 
40 patchli) .Visible- = True 

End If 
last = i 

Index = Index * 1 
f i 1 cerDa ta . MoveNext 
45 End If 

Next i 

•Do not allow blanx to be selected 
If itemSelected > last Then 
itemSelected = last 
50 End If 
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• fix the rest of Che display 

displayList .Height = H + 2 * GAP - (H / MAXDISPLAY * (MAXDISPLAY - last!) 
5 'display list shrinks when fewer than MAXDISPLAY items displayed 

selector. Top = itemBox( itemSelected) .Top - GAP 'behind current iteznBox 
locator. Top = T + rowoffset * (locStart (locSelected) - 1) 

locator .Height * last * rowOffset ♦ rltem(O) .Height - rowOf fset 'height shrinks 
when displayList shrinks 

rItem(0).Top = rltem(whichrltem( itemSelected) ). Top 
10 Setltemlnfo 
End Sub 

Sub Setltemlnfo {) 

* display current item's info in info bar 

15 Dim i As Integer * # of records away from bookmark we need to go 

Dim msg As String 

' find selected record 

filter Data. Bookmark = marker ( locSelected) 
i ~ itemSelected 
20 While (i > 1) 

f i 1 1 erData . MoveNext 

i = i - 1 

Wend 

'Put info in the info bar 
2$ Setlnfo I temSt ring ( ) , ( itemBoxf itemSelected) .BackColor) 

■update preview window if needed 
If inPreview Then ShowPreview 
End Sub 

Sub ShowPreview { ) 
30 'Display the video, still, or text preview 

* of the item selected 

Dim msg As String 

If Me Is MOVlist Then 

msg = f ilterDatat "Plot " ) 
35 Elself Me Is TVlist Then 

msg = f ilterData < captionField) & Chr(13) 

msg = msg u StationString ( f ilterData <" Station" ) ) & Chr(13) 

msg » msg & CategoryString { ( f ilterData ( "Type" )> , t f ilterData ( "Category" )) ) 

Else 

msg = "This would be a video, still, or textual preview of 
40 msg = msg & f ilterData (captionField) 

msg = msg & 
End If 

previewWin . Visible « False 
previewWin . Caption => msg 
45 CPlace 0, previewWin, displayList 

previewWin . Visible = True 
End Sub 
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Sub tmr31ink_Timer () 

BiinkControl .Visible - Not BlinkControl . Visible 
End Sub 
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■====== MESSAGE form code »==" = 

'This form is used by Help and some lists to display inf ormaticr. . 
5 * temporarily covering up the current form. 

Option Explicit 

Const GAP * 500 

j0 Sub Form__Activate ( ) 

text Area .Caption = userMsg 
End Sub 

Sub To rm_KeyDown (KeyCode As Integer, Shift As Integer) 
Select Case KeyCode 
15 Case Else 

recurnCode = KeyCode 
Me. Hide 
End Select 
End Sub 

20 

Sub Forra_Load { ) 

'set colors and fonts 
Me.BackColor = itemCOLOR 
text Are a . BackColor = itemCOLOR 
texcArea . FontSize = largeFONT 
25 'set sizes 

SizeAForm Me. DispTop, DispHeight, DispLeft, DispWidth 

SizeAControl textArea, GAP, DispHeight - 2 * GAP, GAP, DispWidth - 2 * GAP 
* initialize 
texcArea . Caption = 
End Sub 

30 

' ====== ROLODEX form code ======= 

•This form shows the main menu and filter menus. 

' Uni implemented : Have filter button color correspond to type/category color 
Option Explicit 

35 

Dim BlinkControl As Control 'pointer to blinking highlight 
Dim parent As Integer 'number of parent card 
Dim current As Integer 'number of current card 

40 ' SDec ^ a l cards 

'note: these must be updated each time the number of filter cards in the card 
datafile changes 

Const filterCARD =1 *TV filter menu 
Const mfilterCARD = 6 8 'movie filter menu 
Const homeCARD = 96 'main menu 

45 Dim lastCard As Integer 'holds number of regular card while in filter 

Const MAXTITLE = 3 'WARNING: A change in MAXTITLE requires a. change in code for 
LoadGraphics 

Const CARDSHIFT » 2.5 'for card display- -amount change in card placement 
SQ Const MAXROWS = 3 ' for card display- -number of rows of buttons 

Const MAXCOLS * 3 'for card display- -number of columns of buttons cn a card 
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Cor.sc MAXCARD - 9 'max number of cards that can be displayed on screen 
Const MAX ITEM = 9 'max number of buttons on a card 

'action codes: tell what action to take for a button choice 

'actions greater than act NEXT need additional input 

Ccr.sc act COMING » 2 

Const actNOW = 3 

Const actNEXT = 5 

Const actALPHASHOP = 6 

Const actFILTER = 7 

Const actALPKATV = 8 

Const actALPHAKOV = 9 

Const act DOMAIN = 10 

Const actLATER * 11 

Const actWEEK » 12 

Const actWKEND = 13 

Const actSCHED « 14 

Const shortTWIEW = 30 

Const shortMWIEW = 31 

Const shortSPVIEW = 32 

Const shortTVNOW =35 

Const shortTVFAV =36 

Const shortMVFAV = 37 

Const short SPFAV * 38 

Const actMOVIE =40 

Const actSTORE = 50 

Const actDEPT = 52 

Const actMORE = 60 

Const actNONE =65 

* for development only 

Const act KEYS = 71 

Const actTABS » 72 

Sub Animate (direct As String, cardNo As Integer) 

'Animate opening another card, backing up, or selecting a button 

Dim index As Integer 

Dim depth As Integer 

DoEver.ts 'do not interrupt another animation 
depth = Cards (current ). level 
Select Case direct 
Case ■Back" 

If Cards (current ) .parent > 0 Then 
CCopy sspCard(depth) , sspCont 
sspCont . Visible = True 

2oom 10, sspCont, sspItem(Cards (current >. self ) 

DisplayCard (Cards ( current ) .parent) 

sspCor.t . Visible ■ False 
End If 
Case "Next" 

index = Cards (current ). selected 
If index > 0 Than 

CCopy sspltem( index) . sspCont 

sspCont . Visible = True 
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sspCont. BackColor * sspCard (0 ) . BackColor 
Zoom 10, sspCont, sspCard (depth) 
DisplayCard cardNo 
sspCont. Visible = False 
End If 
Case "Select" 

index * Cards (current) . selected 
If index > 0 Then 

CCopy sspltemt index) , sspCont 
sspCont .Visible = True 

sspCont . BackColor » sspCard ( C ). BackColor 

SizeAControl sspCard(O), 0. 500. 0. SCO 'size of whole form 
Zoom 10, sspCont. sspCard (0) 
End If 
End Select 
End Sub 

Sub BlinkStart (C As Control, vis) 
•enable blinking object 

Set BlinkControl » C 
20 BlinkControl . Visible » vis 

tmrBl ink . Enabled = True 
End Sub 

Sub BlinkStop (vis) 
25 'stop blinking object, leaving visiblility as vis 

tmrBl ink. Enabled = False 
If BlinkControl Is Nothing Then 

'do nothing 
Else 

BlinkControl .Visible = vis 
30 End If 

Set BlinkControl = Nothing 
End Sub 

Sub ButtonAction () 
3S 'perform action associated with selected button 

Dim button As Integer 
Dim cardNo As Integer 
Dim msg As String 

button = Cards (current) .selected 'item number of selected button on parent card 
40 cardNo = Cards (current ). item(button) 'card number of selected button 

If button < 1 Then Exit Sub 

Select Case Cards ( cardNo ). act ionCode 
Case act NONE 

'an inactive button 

Setlnfo "This option is not yet available,*, greyCOLOR 
Case actNEXT 

'display the next card 

Animate "Next", Cards (current ). item (but con) 
Case act DOMAIN 

■change current domain before going to zhe next card 
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currDomain = Val (Cards (cardNo) . actionData) 

Sec Status Cards (cardNo) .name. greyCOLOR 

Animate "Next*, Cards (current ). item (but ton) 
s Case actMORE 

'show more choices on same topic (currently same as act NEXT) 

Animate "Next". Cards (current ). item(button) 
Case act COMING 

'show schedule cf what's coming up on TV 

Animate "Select". 0 
10 sameFilter - False 

Sec views ( curr Domain) = frmComing 

returnCode = SHCWVIEW 

Me. Hide 
Case actNOW 
15 'show what's on TV now 

currView(currDomain) = "TV 6:30pm : " 'obviously, this would be the current 

time 

Animate "Select", 0 

sameFilter = False 

same View 3 True 
20 Set views (currDomain) = listFrm(currDomain) 

returnCode = SHOWVIEW 

Me. Hide 
Case act LATER 

'show what's or. TV for a later day 
2S 'currently non- functional 

'Animate "Select". 0 

'sameFilter = False 

'Set views (currDomain) = frmFriday 

returnCode = SHOWVIEW 

Me. Hide 
30 Case act WEEK 

'show TV schedule for weekdays 

Animate "Select". 0 

sameFilter - False 

Set views (currDomain) = frmWkday 
3S returnCode = SHOWVIEW 

Me. Hide 
Case actWKEND 

' show TV schedule for weekend 

'currently non- functional 

'Animate "Select", 0 
40 • sameFilter = False 

'Set views (currDomain) = frmWkend 

returnCode » SHOWVIEW 

Me. Hide 
Case actSCHED 

' show TV schedule 

45 

'currently non -functional 
'Animate "Select", 0 
'sameFilter = False 
'Set views (currDomain) =* frmSched 
returnCode = SHOWVIEW 
SO Me. Hide 



55 



36 



EP 0 735 749 A2 

Case actALPHASHOP 

•gee a string from user, search for items beginning with user string 
'note: this would probably be very different 
s Animate "Select", 0 

SetStatus "Shopping. " & Cards (cardNo) .name. greyCOLOR 
msg = Cards (cardNo) .actionData 
Set Info msg, YELLOW 
Wait frmAlpha 

If returnCode <> BACK And userString <> "• Then 
10 sameFilter = False 

filters tcurrDomain) = "item" 

Set views (cur r Domain) = listFrm tcurrDomain J 

returnCode *» SHOWVIEW 

Me .Hide 

15 Er * d If 

Case actALPHATV 

•allow user to select a show title 

Animate "Select", 0 

SetStatus "TV, " & Cards tea rdNo) . name . greyCOLOR 
returnCode = PICK 
20 Me. Hide 

Case a c t AL PHAMOV 

'This is not hooked up to work, but would probably be 
' a lot like actALPHTV 
•Animate "Select", 0 
25 Case act FILTER 

'send a new filter to a TV view 
filters tcurrDomain) = Cards (cardNo) . actionData 
currFilter (currDomain) = Cards (cardNo) . infotext 
sameFilter = False 
sameView = True 
30 returnCode = SHOWVIEW 

Me. Hide 
Case act MOVIE 

'show a movie list 
Animate "Select", 0 
If current > homeCARD Then 

'the view (a filter) is changing 
currView | currDomain ) = Cards (cardNo) . infotext 
viewFilter - Cards (cardNo) . actionData 
sameView = False 
sameFilter = False 

Else 

• the category is changing 

currFilter (currDomain) * ": " & Cards (cardNo) . infotext 
filters (currDomain) = Cards (cardNo) . actionData 
sameView = True 
sameFilter = False 
End If 

Set views (currDomain) = listFrm (currDomain) 
returnCode = SHOWVIEW 
Me. Hide 
Case actSTCRE 

'show a list of stcres 
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Animate "Select", 0 

Setlnfo "Choose a store: ", TURQUOISE 
SetStatus "Shopping" . greyCOLOR 
sameFilter = False 
filters (currDomain) = "store" 
Set views ( cur r Domain) » listFrra(currDomain) 
returnCode = SHOWVTEW 
Me. Hide 
Case actDEP? 

'show products from a department 
Animate "Select", 0 

SetStatus "Shopping, " & Cards (cardNo) . infotext , greyCOLOR 
sameFilter = False 
f i Iters (currDomain) = "dept" 
userString = Cards ( cardNo ) .name 
Set views (currDomain) * listFrm (currDomain) 
returnCode = SHOWVIEW 
Me. Hide 
Case shortTWIEW 

'Show last TV schedule or list 
Animate " Select ■ , 0 
currDomain = TV 

If views (currDomain) Is Nothing Then 

Set views (currDomain) ~ frmComing 
End If 

sameFilter = True 
returnCode - SHOWVIEW 
Me. Hide 
Case shortMWIEW 

'Show lat movie list 
Animate "Select", 0 
currDomain s MOVIE 

If views (currDomain) Is Nothing Then 

Set views { currDomain) = listFrm (currDomain) 
End If 

sameFilter - True 
returnCode = SHOWVIEW 
Me . Hide 
Case shortSPVIEW 

'Show last shopping view 
Animate "Select", 0 
currDomain = SHOP 

If views (currDomain) Is Nothing Then 

Set views (currDomain ) = listFrm(currDomain) 
End If 

sameFilter * True 
returnCode = SHOWVIEW 
Me. Hide 
Case shortTVNOW 

'show all TV shows on now 

currFi iter (currDomain) - "All Categories" 

currViewt currDomain) » "TV 6:30pm : - 'obviously, this would be the current 



time 



SO 



Animate "Select", 0 
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currDomain - TV 
filters (currDomain) = •■ 
saxneFilter = False 
same View = True 

Set views (currDomain) = 1 is tFrm (currDomain) 

retumCode = SHOWVIEW 

Me. Hide 
Case actKEYS 

'Only for development, wouldn't stay 

Set Keys Cards (cardNo) .actionOata 

SetStatus Cards (cardNo) . info text , itemCOLOR 

current = homeCARD 

DisplayCard current 
Case act TABS 

'only for development 

ToggleTabs 
Case Else 

MsgBox "Bad action code for card * & Cards ( cardNo) . 
Stop 
End 
End Select 
End Sub 

Sub ChangeSel (direct As String) 
'do button navigation 
Dim n As Integer 

Dim last As Integer, Sel As Integer 
n = Cards (current ) .NI terns 
last = Cards (current ). selected 
If last = 0 Then Exit Sub 

If direct = 'Right - Then 
'move right with wrap around 
If last = n Then 
Sel = 1 

Else 

Sel = last + 1 
End If 

Elself direct = "Left" Then 
•move left with wrap around 
If last = i Then 
Sel =- n 

Else 

Sel = last - 1 
End If 

Elself direct - "Up" Then 
"move up, no wrap around 
If last > XAXCOLS Then 

Sel - last - MAXCOLS 

Else 

Sel =* last 
End If 

Elself direct =» "Down" Then 
'move down, no wrap around 
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If las: <= n - MAXCOLS Then 
Sel » lasc + MAXCOLS 

Else 

s Sel » lasc 

End If 
Else 

Msg Box "Bad Direction" 
End 
End If 

10 

Cards (current ). selected = Sel 
UpdateSei 
End Sub 

J5 Sub DisplayCard (index) 

' takes care of displaying menu on screen 

Dim depth As Integer 'number of visible cards 

Dim i As Integer 'counter 

Dim ancestor As Integer 'card numbers 

20 current ~ index 

parent = Cards (current ). parent 
depth = Cards (current ). level 

'hide cards after (in front of) current 
2s For i = MAXCARD To depth ♦ 1 Step -1 

sspTitle(i) .Visible = False 
sspCard(i) .Visible = False 
Next i 

'make sure previous tab names are correct and visible 
30 ancestor » current 

For i = depth - 1 To 1 Step -1 

ancestor = Cards (ancestor ) .parent 
sspTitle ( i) .Caption « Cards (ancestor) -name 
sspCard(i) .Visible = True 
35 sspTitle ( i) .Visible ~ True 

Next i 

' show current card 

sspTitle (depth) .Caption = Cards ( current ). name 
sspCard( depth) .Visible = True 
40 sspTitle (depth) .Visible = True 

' show buttons on current card 
Displayltems 
End Sub 

45 

Sub Displayltems ( ) 
'displays buttons on a card 
Din Area As SS Panel 
Dim i As Integer 
Dim Dx, Dy , x, Y, w. h 
50 Dim NI terns As Integer 
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NIc ems = Cards (current) .NI terns 

Set Area = sspCard (Cards (current ). level) * this is a pointer, not a copy 

'calculate size of button 

Dx - Area. Width * .9 / MAXCOLS 

Dy » Area. Height * .9 / MAXROWS 

w = Dx * .9 

If v > 30 Then w = 30 



If h > 20 Then h = 20 

sspBlinkBG. Visible = False 
sspBlinkBG. ZOrder 0 'bring to front 
'place and show each button 
"or i = 1 To NI terns 

sspltem(i) .width » w 

sspltem(i) .Height = h 

sspltem( i ) .Caption » Cards (Cards (current ). item ( i )). name 
If Cards (Cards (current ). item(i )) .actionCode = act NONE Then 

'turn inactive buttons grey 

sspltem(i) .BackColor - greyCOLOR 

Else 

sspltem(i) .BackColor = itemCOLOR 
End If 

x =* Area. Left + .05 * Area. Width + {(U - 1) Mod MAXCOLS) ♦ .5) * Dx 
Y = Area. Top + .05 * Area. Height + { Int ( ( i - 1) / MAXCOLS) ♦ .5) * Dy 
Centerltem sspltem(i), x, Y 
ssplteml i ). ZOrder 0 
sspltem(i) .Visible = True 
Next i 

'make blinker bigger than buttons 
CPlace 2. sspBlinkBG, sspltem(l) 

' hide unused buttons 

For i = Nit ems + 1 To MAXITEM 

sspltem( i ) .Visible = False 
Next i 
UpdateSel 
End Sub 

Sub Fcrm_Activate () 

'check for a return code from another form 
sspCon: .Visible = False 
Select Case returnCode 
Case BACK 

If current < homeCARD Then current - lastCard 
SetStatus "Use arrows and select or use keypad.", greyCOLOR 
DisplayCard current 
UpdateSel 
Case SHORTCUT 

current = homeCARD 

SetStatus "Use arrows and select or use keypad.". greyCOLOR 
DisplayCard current 
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UpdaceSel 
Case FILTER 

SetStatus -Use arrows and select or use keypad. greyCOLOR 
If current < horneCARD Then 
DisplayCard current 

Else 

lastcard = current 
Select Case c-rr Domain 
Case TV 

10 DisplayCard filterCARD 

Case MOVIE 

DisplayCard mfilterCARD 
Case SHOP 

DisplayCard current 
_ End Select 

End If 
UpdaceSel 
Case COMING 

"to get from TV list view to schedule view 
Cards (current ). selected » 2 
20 sameFilter » False 

Set views (currDomain) - frmComing 
retumCode = SHOWVTEW 
Me . Hide 
End Select 
2S End Sub 

Sub FornuKeyDown (KeyCode As Integer, Shift As Integer) 
Dim index As Integer 
Dim n As Integer 

30 Select Case KeyCode 

Case B_BACK 

'Go up in menu hierarchy 
Animate "Back". 0 
Case B_HELP 

InvokeHelp 
Case B_ PREVIEW 
userStation = 1 
userStart = fakeTime 
returnCode = TOTV 
.Me. Hide 
40 Case B_SELECT 

' Do button action 
ButtonAction 
Case B_ RIGHT 

ChangeSel ( " Right " ) 
4£ Case B.LEFT 

ChangeSel CLeft") 
Case B_UP 

ChangeSel <"Up") 
Case 3_DOWN 

ChangeSel ("Down") 
50 Case B_ PAGEUP 
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Case B_ PAGEDOWN 

'use numeric key pad to choose a button directly, without navigation 
Case B_l 

If Cards (current ) .Nit ems > 0 Then 
Cards (current) . selected = 1 
UpdateSel 
ButtonAction 
End If 
Case B_2 

If Cards (current ) .NI terns > 1 Then 
Cards (current )- selected = 2 
UpdateSel 
ButtonAction 
End If 

15 Case B_3 

If Cards ( current ) .NI terns > 2 Then 

Cards (current ). selected » 3 

UpdateSel 

ButtonAction 
End If 

20 

Case B_4 

If Cards (car rent ) .NI terns > 3 Then 
Cards (current) . selected = 4 
UpdateSel 
ButtonAction 
25 End If 

Case B_5 

If Cards (current) .NI terns > 4 Then 
Cards (current ). selected = 5 
UpdateSel 
Bu t tonAc t ion 

30 

End If 
Case B_6 

If Cards (current) .Nit ems > 5 Then 
Cards (current ). selected - 6 
UpdateSel 
35 ButtonAction 
End If 
Case B_7 

If Cards { current ) .NI terns > 6 Then 
Cards (current ). selected = 7 
UpdateSel 

40 _ 

ButtonAction 
End If 
Case B_8 

If Cards (current ) .NI terns > 7 Then 
Cards (current) .selected » 3 
45 UpdateSel 

ButtonAction 
End If 
Case B_9 

If Cards (current) .NI terns > 8 Then 
^ Cards (current) -selected - 9 

UpdateSel 
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so 



But tonAccion 
End If 
Case 3_0 

current = homeCARD 
DisplayCard current 
Case Asc ( "Q- ) 

End 
End Select. 
Zr.d Sub 

Sue :orm_Load ( ) 

'sec fonts and colors 

sspCard ( C ) . BackColor = backgroundCOLOR 
sspTitle(0 ) .BackColcr = backgroundCOLOR 
sspItem(O) .BackColor = itemCOLOR 
sspBlinkBG. BackColor = highlightCOLOR 
sspltem(0> .FontSize = mediumFONT 
sspCard <0) .FontSize = mediumFONT 
sspTitle(O) .FontSize ■ mediumFONT 
Me. BackColor ** formCOLOR 
' fit into display area 

SizeAForm Me, dispTop, dispHeight, dispLeft, dispWidth 

Me. Scale (0, 0J-(100, 100) 

'set global return code to default 

recurnCode = BACK 

' read in menu hierarchy for rolodex 

Popu la teCards 

'load graphical objects 

LoadGraph ics 

' set current card on screen 
DisplayCard homeCARD 
Er.d Sub 

Sub LoadGraphics ( ) 

Dim i As Integer 'counter 
Dim tabHeight 

' load buttons 

For i = 1 To MAXITEK 

Load sspltem(i) 
Next i 

'shape prototype card 

sspCard(O) -Top « sspItem(O) .Height 

sspCard(0> .Height = 100 - CARDSHIFT - sspCard < C ). Top 
sspCard(O) .Left = 2 - CARDSHIFT 
sspCard (0> .Width = 100 - 4 * CARDS K I FT 
" shape prototype tab 
sspTitle(0 ) . AutoSize « False 

sspTitle(O) .Width = sspCard ( 0 >. Width / MAXTITLE - CARDSHIFT 
" load and shape cards and tabs 
Fcr i = 1 To MAXCARD 
Load sspCard(i) 

sspCard(i ) .rieight * sspCardti - i). Height - CARDSHIFT 
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sspCard(i) .Top = sspCardCi - IJ.Top * CAKDSKIFT 
sspCard(i) .ZOrder 
Load sspTitle(i) 

sspTitle(i) .Top = sspCard( i) .Top - sspTi tie t 0 J . Height ♦ 2 
Select Case {i Mod MAXTITLE) 

*noce; these cases are net flexible for different MAXTITLE 
Case 1 

sspTi tie ( i ) . Left = sspCard ( i ) . Let t 
Case 2 

sspTi t le ( i ) . Left = sspCard ( i ; . Left ♦ sspCard< i) .Width / 2 - 
sspTitleU) .Width / 2 
Case 0 

sspTitie(i) . Left = sspCard ( i ) .Left * sspCard ( i > .Width - sspT 
End Select 
sspTitle ( i ) . ZOrder 
Next i 
End Sub 



Sub PopulateCards ( ) 

•This subroutine reads in the card data from the 

' CARDFILE file defined as a constant. The cards 

•will be numbered 1 to the number of lines (cards) 

•in the file. All special cards should come before 

'the home card (by convention), and are named as 

•constants in the declarations. Each card record 

'should have a level (integer) , item selected (integer), 

'a name (string), an info string (string), and 

'an action code (integer). If the action code is greater 

'than act NEXT , one additional input (variant type) is read 

'for the card. 

Dim last As Integer, parent As Integer 

Dim selected As Integer 

Dim index As Integer, itemNo As Integer 
Dim level, title, text, action 
Open CARDFILE For Input As #1 



'make dummy parent for top level 
index - 0 

Cards ( index) . name = "root" 
Cards ( index) . level = 0 
Cards ( index) .Nit ems » 0 
While Not EOF(l) 

last = index 

index - index ♦ 1 

Input *1, level, selected, title. te> 
Cards ( index) . level = level 
Cards ( index) . selected = selected 
Cards ( index) .name = title 
Cards ( index) . infotext = text 
Cards ( index) .act ionCode = action 
If action > act NEXT Then 
Input *1, action 

Cards ( index) . act ionDat a = action 
End If 



action 
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Cards t index) .NItems » 0 'initialize number of items 
If Cards * index) . level = Cards ( last !. level «• 1 Then 
•Child of last 
parent = last 
Elself Cards (index) .level <= Cards ( last ). level Then 
'Sibling or cousin, back up to find parent 
Do While (Cards ( index) . level < Cards ( last ). level ) 
'Find last sibling 
last - Cards ( last ) .parent 
Loop 

parent = Cards ( last ). parent 
Else 'Skipped a level, text file is incorrect 
MsgBox "Bad level in text file." 
Stop 
End 
End If 

Cards ( index) .parent = parent 
'Add self to parent's list of items 
itemNo = Cards (parent) -NI terns ♦ 1 
Cards (parent ) .Nit ems » itemNo 
20 Cards (parent J . item ( itemNo) * index 

Cards ( index) . self ~ itemNo 
Wend 

Cards (0) .NI terns = 1 
Close #1 
End Sub 

25 

Sub tmrBlink_?imer () 

BlinkControl .Visible = Not BlinkControl . Visible 
End Sub 

30 Sub ToggleTabs ( ) 

'toggles offset of tab placement; development only 
Dim i As Integer 
Static offset 
If offset - 3.5 Then 

offset = 2 
Else 

offset ~ 3.5 
End If 

For i = 1 To 9 

sspTitle(i) .Top = sspCard(i) .Top - sspTitle ( C ). Height + offset 
Next i 
End Sub 

Sub UpdateSel E ) 

'put blinking highlight in correct location, update info bar 
Dim i As Integer 
Dim x. Y 
Dim S As SSPanel 
Dim text As String 
Dim color 
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Biinkstop False 'turn blinking off 
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i = Cards < current >. selected 

If i > 0 Then 'something is selected 

Set S = sspltem(i) *s is pointer to button 
s 'find center of button 

x = S.Left + S. Width / 2 
Y » S.Top + S. Height / 2 
•put blinker behind button 
Center I tern sspBlinkBG, x, Y 
'resume blinking 
'0 BlinkStart sspBlinkBG, True 

End If 

text = Cards (Cards (current) . item (Cards < current I .selected) ) . ir.f otext 
color = ssp I ten (Cards (current) . selected) .BackColor 
Setlnfo text, color 
1S End Sub 

Sub Zoom (n As Integer, C As Control, Dest As Control) 
'animates control C changing size to control Dest 
Dint i As Integer, j As Integer 
Dint dl , dw, dt, dh 
20 dl = (Dest. Left - C.Left) / n 

dw a (Dest. Width - C. Width) / n 

dt = (Dest. Top - C.Top) / n 

dh = (Dest. Height - C. Height) / n 

C.ZOrder 

C.AutoSize = False 
For i = 1 To n 

C.Move C.Left + dl, C.Top + dt , C. Width + dw, C. Height + dh 
C .Refresh 
Next i 
End Sub 
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'= = = — = SELECT form code 

'This form is another attempt at alphabetic input that allows only valid input. 

It relies on -he TV titles database which has two tables. The reference table is 
used first 

and contains a count of all items starting with each letter of the alphabet or 
with a 

symbol or number. The user is first presented with a list of possible starting 
letters 

(each item in the first on-screen list may have several letters in it) . Once a 
starting 

letter is chosen, a snapshot is made of matching entries from the table of titles. 
Each list the user sees has only valid choices for the next letter, or full titles 

if 

a particular title is distinguished from all others by the letters chosen so far. 

The best way to understand is to see the form in action before reading the code. 
'The code could easily be modified to work with other data such as lists of movies, 
etc . 

note: the non-proportional font used in the itemBoxes is Courier New 
Option Explicit 

Dim DB As database * the full database 



SO Dir. list (1000) As String 'the' list of selection str 
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n leaf (1000) As Integer 'true if nth item is a leaf, false otherwise 
r: list End As Integer 'number of last element in list 
-t. currPrefix As String 'the letters chosen so far 
Dim initialList As Integer 'boolean 'true if this list has multiple letters per item 
Dim BlinkControl As Control "not used, currently no blinking object 
Dim itemSelected As Integer 'from 1 to MAXDISPLAY 
Dim iocSelected As Integer 'from 1 to MAXLOC 

Di.T. rowOffset 'difference between tops of two consecutive reduced items 

10 database 

Din allData As snapshot 
Dim filterData As snapshot 

Dim marker (ICO > As String 'bookmarks of each MAXDISPLAY items 
Dim locStart ( 100 ) As Integer ' rltem index for start of locator 

IS ... 

'cispiay parameters 

Const MAXDISPLAY = 6 'Number of items in close up 
Dim MAXITEM As Integer 'Number of items in whole list 
Dim MAXLOC As Integer 'Number of locator positions 

Dim whichrltemi MAXDISPLAY) As Integer 'which rltems are in the current display 
20 Const GAP = 10 'space around lists 

Const EXTRA = 70 'room for longer programs 

Const reducedEXTRA » 20 'room for longer programs in reduced rep 
Const T = 50 
Const H = 1000 - 2 * T 
25 Const locL - 30 'for reduced list 

Const locW = 100 

Const dispL = locW + 2 * locL * f or display list 
Const dispW = 1000 - dispL - locL 

Sub BlinkStart (C As Control, vis) 
30 Set BlinkControl = C 

BlinkControl. Visible = vis 

tmr Blink. Enabled = True 
End Sub 

3S Sub BlinkStop (vis) 

tmrB 1 ink . Enabled ■ False 

If BlinkControl Is Nothing Then 'do nothing 
Else 

3linkControl .Visible = True 
End If 

40 Set BlinkControl - Nothing 

End Sub 

Sub ChangeLoc (direct As String) 

■page up or down with the locator 

Select Case direct 
45 _ 

Case "tip- 

If IocSelected > 1 Then 

IocSelected = IocSelected - 1 

RedoDisplay 
End If 
SO Case "Down" 
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If locSelected < MAXLOC Then 

locSelected » locSelecced •* l 
RedoDisplay 
End If 
End Select 
End Sub 

Sub ChangeSel t direct As String) 
* Perform list navigation 
Select Case direct 
Case -Up* 

If itemSelected > 1 Then 

'move up within items currently displayed 
itemSelected = itemSelected - 1 

selector. Top = itemBox (itemSelected) .Top - GAP 
rltem(O) .Top = locator. Top * rowOffset * (itemSelected - 1) 
Setltemlnf o 
Elself locSelected > 1 Then 
'display previous section of the list 
itemSelected = MAXDISPLAY 
locSelected = locSelected - 1 
RedoDisplay 
End If 
Case "Down* 

If itemSelected < MAXDISPLAY Then 
'move down within items currently displayed 
'do not move to select an empty item 

If (locSelected - 1) * MAXDISPLAY + itemSelected < MAXITEM Then 
itemSelected = itemSelected + 1 
selector. Top = itemBox ( itemSelected) .Top - GA? 
rltem(O) .Top - locator. Top + rowOffset * (itemSelected - 1) 
Setltemlnfo 
End If 

Elself locSelected < MAXLOC Then 
•display next section of list 
itemSelected = 1 
locSelected » locSelected * 1 
RedoDisplay ■ 
End If 
End Select 
End Sub 

40 Sub DoSelect () 

finish with leaf value or create a new list based on user's choice of prefix 

Dim index As Integer 

Dim count As Integer 

Dim i As Integer 
45 Dim nextChar As String 

Dim looking As Integer 'boolean 

Dim title As String 

index = locStart ( locSelected) * itemSelected - 1 'index in list of item 
selected 
50 If leaf (index.' Then 
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■selection made; show next view 
title * removeAmpersand (list (index) ) 

filterData . FindFirst 'SelectTitle = & title & 

If filterData.NoMatch Then 

Do 'prompt for different title until found 

'note: this should never happen, it's only in the list if it's in the 

database 

title = InputBox( title & " not found. Enter new title:*, title) 
f ilterData. FindFirst "SelectTitle * & title & 

Loop Until Not filterData.NoMatch 
End If 

userString » f ilterData ( "FullTitle" ) 
Set views (TV) = frmWeek 
sameFilter * False 
retumCode ~ SHOWVIEW 
Me. Hide 

Else 

' indicate to user that something is happening 
iteraBox ( itemSelecced) .3ackColor « greyCOLOR 
Setlnfo 'Loading data, please wait...*. greyCOLOR 
Do Events 

i - Len ( list ( index) ) 

currPrefix » " " 

If initialList Then 

currPrefix = list (index) 

Else 

'remove underline formatting (&) from prefix 
If i > 2 Then currPrefix - Left ( list ( index) , i - 2) 
currPrefix = currPrefix & Right ( list ( index) , 1) 
End If 

SetStatus "TV Titles starting with " & currPrefix, greyCOLOR 
'construct new list 
If initialList Then 

■list items are special, not prefixes 
If index = 1 Then 

'Symbol or Number selected 
initialList = False 

f ilterData. Filter * "SelectTitle < 'A'" 
currPrefix = 

Else 

*a list of letters selected 
listEnd = 0 

For i = 1 To Len (currPrefix) 

'strip out the letters (ignore commas) to make a new list 
If Mid (currPrefix. i, 1) >= "A" Then 
listEnd a listEnd ♦ 1 

list (listEnd) * & Mid (currPrefix. i. 1) 

leaf(i) s False 
End If 
Next i 
End If 

Else 

'refilter data to match the new prefix 

f ilterData. Filter = "SelectTitle lixe *" & currPrefix & 
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End If 

'data assumed to be already sorted 
If Not initialList Then 

'still need to create new list from data 

Set filterData = f ilterData .CreateSnapshot ( ) 
f ilterData. MoveFirst 
listEnd = 0 

For i = Asc<" " ) To Asc{"Z"> 'space, punctuation, and letters 
'note: should be fixed up by not trying every single one. go stright to 
db item's char 

count » 0 : looking =* True 

While Not filterData . EOF And looking 

nextChar = Mid ( filterData <" SelectTitle" ) , Len ( currPref ix ) * 1, 

If nextChar = Chrti) Or nextChar = LCase (Chr ( i} ) Then 
count = count * 1 
f i 1 terData . MoveNext 

Else 

looking = False 
End If 

Wend 

Select Case count 

Case 0 'do not add to list 

Case 1 'make a leaf entry 

f ilterData. Mo vePrevious 

listEnd = listEnd + 1 

list ( listEnd) » f ixAmpersand (( filterData ( "SelectTitle" J > ) 
leaf ( listEnd) = True 
filterData - MoveNext 
Case Else 'make a non-leaf entry 
filterData. Move Previous 
listEnd = listEnd ♦ 1 

list { listEnd) ■ currPrefix & & Chr(i) 'underline new char 

'note: underlining is just one mechanism for emphasizing what is 



display 



leaf ( listEnd) = False 
filterData . MoveNext 
End Select 
Next i 

If f ilterData. RecordCount MAXDI SPLAY Then 

'redo the list to have just leaves in it, if they all fit in < 

listEnd a 0 
filterData . MoveFirst 
While Not filterData . EOF 
listEnd = listEnd - 1 

list (listEnd) = f ixAmpersand ( ( filterData < "SelectTitle" )) ) 
leaf ( listEnd) = True 
filterData .MoveNext 

Wend 
End If 



End If 

SO 
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'display the newly created list 

itemBox(itemSeiected) .BackColor = itemCOLOR 'restore itemBox color 
initial Lisc ° False 
If listEnd > I Then 
5 NewLisc 
Else 

'automatically select item if only one in list 
locSelected = 1 
itemSelected = 1 
10 Deselect 
End If 
End If 
End Sub 

Sub Fom_Activate ( ) 
15 'always begin with initial list 

LoadData 

NewList 
End Sub 

20 Sub Form_KeyDown (KeyCode As Integer, Shift As Integer) 

Select Case KeyCode 
Case Asc ( "Q" ) 

End 
Case B_BACK 

'note: do we want ability to back up one level from a particular choice in 
the lisc? 

' Could have B_BACK go back one list then back to menu after another press. 
retumCode » BACK 
Me. Hide 
Case B_.HEL? 
30 InvokeHelp 
Case B_PREVTEW 
Case B^S ELECT 

DoSelect 
Case B_UP 

ChangeSel ("Up") 
35 Case B.DOWN 

ChangeSel ("Down") 
Case B.RIGHT 
Case B_LEFT 
Case 3_PAGEUP 
40 ChangeLoc ( " Up " ) 

Case 3_PAGEDOWN 

ChangeLoc ("Down*) 
Case 3_ FILTER 
Case B_0 

retumCode = SHORTCUT 
45 Me. Hide 

End Select 
End Sub 

Sub Form_Load { ) 
50 n i-"ti i As Integer 'counter 
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Dim itemRoom 

'sec colors and fortes 

itemBox (0) . FontSire = largeFONT 

rightArrcw(O) . FontSize » largeFONT 

rltem(C) .BackColor = itemCOLOR 

selector. FillColor » highlightCOLOR 

displayList. FillColor = backgroundCOLOR 

locator . FillColor - backgrour.dCOLOR 

itemBox (0) .3ackColor = itemCOLOR 

rightArrow(O) .BackColor = itemCOLOR 

shpSlot .BorderColor = slotCOLOR 

'size and place the objects to the screen 

SizeAForm Me. DispTop, DispHeight, DispLeft, DispWidth 

Me. Scale (0. 0)-<1000, 1000) 

SizeAControl locator, T - GAP, H ♦ GAP, locL - GAP, locW «- 2 * GAP 

SizeAControl shpSlot, T, H, locL ♦ reducedEXTRA, locW - 2 • reducedEXTRA 

SizeAControl displayList, T - GAP, H «■ GAP. dispL, dispw 

locator . ZOrder 

shpSlot . ZOrder 

rltem<0) .ZOrder 

itemRoom » H / MAXDI SPLAY 

SizeAControl itemBox(O), T + (.5 * GAP). itemRoom - GAP, dispL + EXTRA, dispw 



SizeAControl lef tArrowl 0 > , T + (.5 * GAP), itemRoom - GAP, dispL, EXTRA 
SizeAControl rightArrowt 0 ) , T ♦ (.5 * GAP). itemRoom - GAP, dispL * dispW - 
EXTRA, EXTRA 

SizeAControl selector. T, itemRoom ■* GAP, dispL. dispW 

selector . ZOrder 

For i » 1 To MAXDI SPLAY 

Load itemBox(i) 

itemBox ( i ) .Visible = False 

itemBox(i) .Top = i temBox ( 0 ) . Top + (i - 1) * itemRoom 
Load rightArrow(i) 

rightArrow(i) .Top = itemBox ( i ). Top 
Next i 
End Sub 

Sub LoadData ( ) 

Dim re f Snap As snapshot 

Const MAXTOG ETHER - MAXDISPLAY 'number of letter allowed in one itemBox 
Dim together 



'create initial list 

Sec refSnap = DB .CreateSnapshot ( "Reference" ) 
r e f Snap . MoveFirs t 

together * MAXTOG ETHER 'indicate need for new item 
While Not ref Snap. EOF 

Select Case ref Snap ( "Number " ) 



2 



EXTRA 



40 



' fill initial selection list 
list End » 0 

Set DB = OpenDa t aba se (TVTi ties > 

Set allData = DB .CreateSnapshot ( "Titles " ) 



45 
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Case 0 

'do not add to list 
Case 1 

5 'make a leaf entry 

listEnd = listEnd ♦ 1 

allData .FindFirst "SelectTitle like ■ & ref Snap ( "Letter • } & ■*" 
list (listEnd) = allData ( 'SelectTitle" ) 
leaf (listEndl = True 
together = MAXTOG ETHER 
10 Case Else 

If ref Snap ( 'Letter' ) ' Then 

listEnd » listEnd ♦ 1 

list { listEnd) - "Symbol or Number' 

together = MAXTOG ETHER 
15 'note: DoSelect relies on this entry being the first list item 

Else 

If together >= MAXTOG ETHER Then 
listEnd s listEnd * 1 
list (listEnd) = re f Snap ( "Letter" ) 
together » 1 

Else 

list (listEnd) = list (listEnd) & ', ' & ref Snap ( "Letter " ) 
together = together ♦ 1 
End If 
End If 

25 leaf (listEnd) = False 

End Select 
re f Snap . MoveNexc 

Wend 

Set filterData - allData 
initialList - True 
End Sub 



20 
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Sub NewList ( ) 

'remakes the display for a new list 

•note: should items elected be initialized to something other than 1? 
35 Dim i As Integer 'counter 

Dim section As Integer 'count the number of locator locations 
Dim msg As String 

'clear captions 

For i o l To MAXDI SPLAY 

40 

itemBox< i > .Caption * 

Next i 

For i = 1 To MAX ITEM 
"Jnload rltem(i) 
45 Next i 

MAXITEM = listEnd 'number of items in list 

■ load the reduced item shapes and size relative to MAXITEM 
rowOffset = ( H - rltem(O) .Height > / MAXITEM 
50 Zf rowOffset > rltemt 0 ). Height + GAP Then rowOffset » rltem(O) . Height + GAP 
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rltem(O) .Visible = False 
rltem(O) .Top = T 

rltem(O) .Left = locL ♦ reducedEXTRA 

rltem(O) .Width » locW - 2 * reducedEXTRA 

rltemtO) .BackColor = itemCOLOR 

f ilterData.MoveFirst 

'size and place the item shapes 

*and set section bookmarks 

section = 0 'number of locator locations 
For i = 1 To MAX ITEM 
Load rltem(i) 

rItem(i>.Top = T ♦ (i - 1) * rowOffset 
If (<i - 1) Mod MAXDI S PLAY ) = 0 Then 
'begin a new locator location 

section = section ♦ 1 

locStart (section) = i 
End If 

If Not leaf(i) Then 

rltem(i) .Width • rltem( i ). Width * reducedEXTRA 
End If 

rltem(i) . ZOrder 
rltem(i) .Visible = True 
Next i 

MAXLOC « section 

locStart (section + 1) » MAXITEM + 1 

'set length of minselector 

'use rltera(O) as mini selector 
rltem(O) .Left = locL - GAP 
rltem(O) .Width = locW ♦ 2 * GAP 

'initialize selector and locator 
itemSelected = 1 
locSelected = 1 

rltem(O) .BackColor = highlightCOLOR 

'set the captions in the itemBoxes 
RedoOisplay 
End Sub 

Sub RedoDisplay ( ) 

'set the captions in the itemBoxes to correspond to items in locator 
'reposition locator, selector and set item info in info box 

Dim last As Integer 'number of last item in display 
Dim i As Integer 'counter 

Dim index As Integer 'index of item in list 

index = locStart ( locSelected) 
For i = 1 To MAXDI SPLAY 

If index > MAXITEM Then 

'hide empty itexnSox 

itemBox(i) -Caption - 

itemBox(i) -Visible = False 
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rightArrow(i) .visible = False 

Else 

itemBox(i) .Caption » lisc (index) 
5 If Not leaf (index) Then 

'show right arrow and put in all caps 

rightArrowf i ) .Visible = True 

itemBox 1 i ) .Caption = UCase ( list { index) ) 

Else 

rightArrow(i) .Visible = False 
10 End If 

itemBox ( i ) .Visible » True 
last » i 'remember last valid selection 
index = index + 1 
End If 
IS Next i 

'Do not allow blank to be selected 
If itemSelected > last Then 

itemSelected = last 
End If 

20 

' fix the rest of the display 

displayList. Height = H + 2 * GAP - (H / MAXDI SPLAY ♦ (MAXDISPLAY - last)) 
selector. Top - itemBox ( itemSelected) .Top - GAP 
locator. Top = T * rowOffset * ( locStart ( locSelected) - 1) 
25 locator . Height = last * rowOffset + rltem(O) .Height - rowOffset 

rltem(O) .Top = locator. Top + rowOffset * (itemSelected * 1) 
rltem(O) .Visible = True 
Setltemlnf o 
End Sub 

30 

Function removeAmpersand (oldText As String) As String 
' for each double ampersand, remove one of them 

Dim text As String 

Dim newText As String 

Dim i As Integer 

35 

text = oldText 

newText - " " 

While InStrttext, "&&") 

i = InStrttext, -&&") 

newText « newText & Left (text, i) 

AQ 

text = Right (text. Lent text) - (i ♦ 1)) 

Wend 

removeAmpersand = newText & text 
End Function 

45 Sub Setltemlnfo ( ) 

put the relevant info for current item into info box 
Dim msg As String 
Dim index As Integer 
Dim F As snapshot 

50 If Me. Visible Then 
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index = locStart { locSelected) - itemSelected - 1 
If leaf (index) Then 

'get full title from data 
Set F = filterData 

F.FindFirst "SelectTitle = & list (index) & ---- 

msg = F( "FullTitle" > 

Else 

msg - "Titles beginning with & list (index) & 
End If 

Setlnfo msg. ( itemBox ( itemSelected) . BackColor) 
End If 
End Sub 

Sub tmr31ink_Timer () 

3linkControl .Visible = Not BiinkControl .Visible 
End Sub 

• ess= ss START form code »o = a=o 

'This startup form allows the developer to choose display mode 
' (either for PC, TV. or mini PC for making screen prints) 
' then starts the actual program by calling Main 
Option Explicit 

Sub Form_Load ( ) 

returnCode = STARTUP 
End Sub 

Sub mini But ton_C lick () 
displayMode = "mini" 
Unload Me 
Main 
30 End Sub 

Sub PCbutton_Click () 
displayMode - "PC" 
Unload Me 

35 Main 
End Sub 

Sub TVbutton_Click (> 

displayMode - "TV" 

Unload Me 
40 Main 
End Sub 

' ====== TV form code ====*=- 

'This form pretends to show a TV program or record it. if it is not currently on 

45 

Option Explicit 

Const GAP = 700 

Sub FornL^Activate ( > 
50 Dim msg As String 
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Dim OB As database 
Dim Programs As table 
Dim startTime 
Dim re f Snap As snapshot 
5 Dim ref Dace 

Dim startTS, finishTS, nowTS 

Set DB = OpenDat abase (TVDB) 

Set refSnap * DB . CreateSnapshot ( "Reference" ) 
10 ref Snap . FindFirst "Name = 'Date'" 

refDate = DateValue ( ref Snap ( "Data" ) ) 
Set Programs = DB.OpenTablei "Programs' ) 
Programs . Index = "ID* 

Programs. Seek userStation. userStart 

'note: ought to check that userStation is valid 
If Programs .NoMatch Then 

'simulate showing whatever is currently on userStation 
nowTS = DateDif f ( "n" , refDate, fakeToday + fakeTime) \ 30 
Set ref Snap = Programs . CreateSnapshot <) 
ref Snap. FindFirst "Station = " & Str (userStation) 
20 refSnap.FindNext "FinishTS > * & Str(nowTS) 

msg ** "You are watching " 

msg = msg & Chr(I3) & Format ( ref Snap ( "Title" ) ) 
msg ~ msg & " on a & StationString ( ref Snap < "Station" ) ) 
msg = msg & Chr(13) & Format (ref Snap < "Start" ) , "h:inro AM/PM" ) 
msg = msg & " to " t Format (ref Snap ( "Finish" ) , "h:mm AM/PM") 

Else 

'decide if the program is on, record if it's not 
startTS » DateDif f ( "n" , refDate. Programs ( "Start" ) > \ 30 
finishTS » DateDif f ( "n" , refDate. Programs { "Finish" ) > \ 30 
nowTS = DateDif f ( "n" . refDate, fakeToday » fakeTime) \ 30 
'nowTS would be calculated to work in real time 
If StartTS <= nowTS And finishTS >= nowTS Then 
msg = "You are watching * 

Else 

msg = "The VCR is set to record • 
End If 

msg * msg & Chr(13> & Format ( Programs ( "Title" ) ) 
msg » msg & * on " & StationString ( Programs ( "Station* ) ) 
msg = msg & Chr(13) & Format ( Programs (" Start ") . "h:mm AM/PM") 
msg = msg & " to " & Format (Programs ( "Finish" ) , "h:mm AM/PM") 
End If 

text Area .Caption =* msg 

End Sub 

Sub Form_KeyDowr. (KeyCode As Integer, Shift As Integer) 
Select Case KeyCode 
Case 3_BACK 

retumCode = LAS TV I 

'note: this is not appropriate if we came from menu (rolodex) 
Me. Hide 
Case B_0 

retumCode = SHORTCUT 
Me. Hide 
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Case Asc("Q*) 

End 
Case Else 
5 recurnCode = BACK 

Me. Hide 
End Select 
End Sub 

Sub Form_Load { J 
10 textArea. Caption a 

textArea . FontSize = largeFONT 
SireAForm Me, 0. ScrHeight, 0. ScrWidth 

SizeAControl textArea. GAP, ScrHeight - 2 • GAP, GAP, ScrWidth - 2 • GAP 
End Sub 
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' ====== tv__ GUIDE form code ==q=oo 

'General remarks: 

The Main procedure starts the ball rolling by showing the Frame, loading 
'all the forms, and then showing the rolodex menu. Control is tranf erred from form 
'to form through the use of the retumCode variable (see list of return codes in 
•global declarations). The frmDex, for example, sets the retumCode tc SHOWVIEW, and 
•hides itself. This causes frmFrame to become active. frmFrame looks at the 
retumCode 

'and shows the current domain's view form. Communication between forms is done 
through 

■a variety of variables, since a form's procedures are not accessible from outside. 



Option Explicit 

Global Declarations 



30 'database constants 

Global Const CARDFILE = -c:\pctv\db\cards2.txt- 

Globai Const MVDB = "c:\pctv\db\plots.mdb" 

Global Const SPDB - "c:\pctv\db\shopping.mdb- 

Global Const TVDB = "c:\pctv\db\big.mdb" 
^ Global Const TVTitles = "c:\pctv\db\titles.mdb- 

Const CATDB » ■c:\pctv\db\cats.mdb" 

Dim typeTable As table ' TV type IDs 

Dim catTable As table 'TV category IDs 

Dim statTable As table ' station IDs 

Global fakeToday 'keep the day constant 
40 Global fakeTime 'keep the time constant 

Global displayMode As String 'display set for ■PC" or "TV" (affects size of fonts 

and graphics ) 

Global newUser As Integer 'boolean 'when true, give extra helps 

^ Global ScrWidth, ScrHeight 

Global DispTop. DispHeight, DispLeft, DispWidth 'display area available to forms 
inside the frame 

' Colors 

Global Const highlightCOLOR = &H8C80FF Tedish 
50 Global Const backgroundCOLOR = &H80FFFF 'yellow 
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Global Const itemCOLOR « &HFFFFCO 'light blue 

Global Const formCOLOR = &HFFO000 'dark blue 

Global Const whiteCOLOR = &H80000005 'white 
Global Const greyCOLOR = &HCOCOCO 'grey 
5 Global Const blackCOLOR * &H0& 'black 

Global Const slotCOLOR » &H80000005 'white 
Global Const borderCOLOR = &HFF& • red 

Global Const divideCOLOR » &HFTFTL "white 
Global Color (10) 'array filled in Main 

10 

' font sizes 

Global Const small FONT =13.8 
Global Const mediumFONT = 18 
Global Const largeFONT = 24 

15 'domain constants 

Global Const MOVIE » 0 
Global Const TV = 1 
Global Const SHOP * 2 

20 'array of list forms 

Global listFrmU) As Form 
Global TVlist As New frmList 
Global MOVlist As New frmList 
Global SHOPlist As New frmList 
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Inter-Form Communication 



Global cur r Domain As Integer 'the current domain 

Global filters (3) As String 'array of query strings for current domain filter 
Global currFilter (3 ) As String 'text name of filter 

Global currView{3) As String 'text name of current view (use mainly for lists which 
change view title) 

Global views (3) As Form 'array of current domain views (TV coming or TV schedule, 
for instance) 

Global viewFilter As String 'the database filter needed to obtain the appropriate 
view 

'note: used only for movies at this time, would probably be expanded to array 
Global userString As String 'string chosen by user 
Global userMsg 'message string to display to user 
Global userStation 'a station selected by user 
Global userStart 'a time chosen by user 

Global sameFilter As Integer 'boolean 'true if need to refilter data 
Global sameView As Integer "boolean 'true if need to redo display 

'return codes determine which action to take on re-activate of frmFrame or frmDex 

Global returnCode As Integer 

Global Const 3ACK » 0 

Global Const TOTV = 1 

Global Const LASTVIEW = 2 

Global Const SHORTCUT = 3 

Global Const DONE = 4 
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Global Const FILTER - 5 

Global Const COMING » 6 

Global Const SHOWVIEW = 9 

Global Const ALPHA = 10 

Global Const PICK = 11 

Global Const STARTUP = 12 

Define Type Card 
for rolodex 

Global Const MAXITEM = 9 'max number of buttons on a card 

Represents one index card as viewed on screen 
Type Card 

self As Integer 'item number of self on parent 
level As Integer 'number of cards away from root 
name As String ' text to appear on but ton /card 
infotext As String 'text for info bar 

actionCode As Integer 'code for action to take when chosen 
actionData As String 'extra info needed for action 
parent As Integer 'number of parent card 

NItems As Integer 'number of buttons visible on card 

Item (MAXITEM) As Integer 'array of card pointers (one for each button on card) 
selected As Integer 'the number of the selected button 
End Type 

'Array of up to MAXCARDS index cards 
Global Const MAXCARDS = 1000 
Global Cards (MAXCARDS) As Card 



Remote Buttons 



"assigned values in sub SetKeys 

Global B_BACK 

Global B_HELP 

Global B_PR£VIEW 

Global B_UP 

Global B_DOWN 

Global B — LEFT 

Global B_RIGHT 
40 Global B_SELEC? 

Global B_PAGEUP 

Global B_ PAGEDOWN 

Global 3_1 

Global B_2 

Global B_3 
45 Global B.4 

Global B_5 

Global B_6 

Global B_7 

Global B_8 
SO Global B_9 
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20 



Global B_0 
Global B_?IL?ER 



COLORS 

Global Const RED = &HFF& 
Global Const ORANGE = &H8QFF& 
Global Const YELLOW = &KFFFF& 
Global Const GREEN ^ &H80FF60 
Global Const TURQUOISE = &HFFFFCC 
Global Const 3LUE = &HFFOOOO 
Global Const VIOLET = &HFFOOFF 
Global Const WHITE = &HFFFFFF 
Global Const BLACK = &H0& 
Global Const GREY = &HCOC0C0 



CONSTANTS FROM VISUAL BASIC FILES 



' * From CONSTANT . TXT 



* Key Codes 
Global Const 
Global Const 
Global Const 
Global Const 
Global Const 
Global Const 
Global Const 
Global Const 
Global Const 
Global Const 
Global Const 
Global Const 
Global Const 
Global Const 
Global Const 
Global Const 
Global Const 
Global Const 
Global Const 
Global Const 
Global Const 
Global Const 
Global Const 
Global Const 
Global Const 
Global Const 
Global Const 
Global Consc 
Global Const 
Global Const 



KEY_LBUTTON = &H1 
KEY_RBUTTON = &H2 
KEY_CANCEL - 6tH3 
KEY_MBUTTON = &H4 
KEY_BACK a &H8 
KEY_TAB = &H9 
KEY_CLEAR = &HC 
KEY_RETURN = &HD 
KEY_SHIFT = &H10 
KEY_CONTROL = &H11 
KEY_MENU = &H12 
KEY_PAUSE = &H13 
KEY_CAPITAL » &H14 
KEY_ ESCAPE a &H1B 
KEY_ SPACE = &H20 
KEY_PRIOR = &H21 
KEY_NEXT = &H22 
KEY_END = &H23 
KEY_HOME = &H24 
KEY_LEFT = &H25 
KEY_UP = &H2 6 
KEY_RIGHT = &H27 
KEY.DOWN = &H2 8 
KEY_ SELECT = &H29 
KEY_ PRINT = &H2A 
KEY_EXECUT£ = &H2B 
K EY_SNA PS HOT = &H2C 
KEY_ INSERT = &H2D 
KEY_DELETE = &H2E 
KEY_HELP = itH2F * 



NOT contiguous with L & RBUTTON 
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KEY_A thru KEY_Z are the same as their ASCII e<iuivalents : ' A ' thru 
KEY_0 thru KEY_9 are the same as their ASCII equivalents : '0* thru 



Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 
Global 



Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 
Const 



KEY_NUMPADO = 

KEY _NUMPAD1 a 

KEY_NUMPAD2 = 

KEY_NUMPAD3 = 

KEY_NUMPAD4 = 

KEY_NUMPAD5 = 

K EY__NUM PAD 6 = 

KEY_NUMPAJ37 = 

KEY_NUMPAD8 * 

KEY_NUMPAD9 = 
KEY_MULTIPLY 



&H60 
&H61 
&H62 
&H63 
&H6C 
&H65 
&H66 
&H67 
&H68 
&H69 
= &H6A 



KEY^ADD = &H6B 
KEY_S E PARATOR = &H6C 
KE Y_S UBTRACT = &H6D 
KEY.DECIMAL = &H6E 
KEY_DIVIDE = &H6F 



K£Y_F1 s 
KEY_F2 > 
KEY_F3 ■ 
KEY_F4 = 
KEY_F5 = 
KEY_F6 = 
KEY_F7 = 
KEY_F8 = 
KEY_F9 = 
KEY_F10 
KEY_F 1 1 
KEY.F12 
KEY.F13 
KEY_F14 
KEY_F15 
KEY_F16 



&H70 
&H71 
&H72 
&H73 
&H74 
&H7 5 
&H76 
&H77 
&H78 
■ &H79 
= &H7A 

* &H7B 

* &H7C 
= &H7D 
= &H7E 
= &H7F 



Global Const KEY_NUMLOCK » &H90 



Function CategoryString (typeCode As Integer, catCode As Integer) As String 
'creates user-reabable string for a TV program's category 
Dim msg As String 

nsg = "Category: " 
'look up type code 
typeTable . Index = "ID* 
typeTable. Seek "=", typeCode 
If typeTable. NoMatch Then 
msg = msg & typeCode 

Else 

msg = msg & typeTable ( "Name" ) 
End If 

msg » msg & " , • 'all on one line, replaced: Chr{13» & "Subcategory: " 
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'look up category code 
catTabie. Index = " ID" 
catTabie. Seek " = " , catCode 
If catTabie. NoMatch Then 
msg = msg & catCode 

Else 

msg a msg t catTabie ( "Name" J 
End If 

CategoryString = msg 
End Function 

Sub CCopy (Cfrom As Control. Cto As Control) 
'copies attributes of CFrora control to CTo 

Cto. Caption = Cfrom. Caption 

Cto.BackColor = Cfrom. BackColor 

Cto. Top a Cfrom. Top 

Cto. Height » Cfrom. Height 

Cto. Left = Cfrom. Left 

Cto. Width = Cfrom. Width 

Cto.FontSize = Cfrom . FontSize 
End Sub 

Sub Centerltem (Item As Control, x, y) 
'centers a control around a point 

Item. Left « x - Item. Width / 2 

Item. Top =* y - Item. Height / 2 
End Sub 

Sub CPlace (extra, Cfrom As Control, Cto As Control) 

'place Cfrom in the same place as Cto, with difference extra 

Cfrom. Top = Cto. Top - extra 

Cfrom. Left <» Cto. Left - extra 

Cfrom. Height = Cto -Height + 2 * extra 

Cfrom. Width « Cto. Width + 2 * extra 
End Sub 

Function DayString {d, length As String) As String 

'returns string for appropriate day of week based on date given 

' and length specified 

Select Case Weekday (d) 
Case 1 

If length =* •long" Then 
DayString = "Sunday" 

Else 

DayString = "Sun- 
End If 
Case 2 

If length = "long" Then 

DayString ~ "Monday" 

Else 

DayString = "Mon" 
End If 
Case 3 

If length = "long" Then 
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DayScring = "Tuesday" 

Else 

DayS t ring = "Tue" 
S End If 

Case 4 

If length = "long* Then 

DayS t ring » "Wednesday" 

Else 

DayS t ring = "Wed" 
10 End If 

Case 5 

If length = "long" Then 

DayString = "Thursday" 

Else 

DayString = "Thur" 
End If 
Case 6 

If length = "long" Then 

DayString = "Friday" 

Else 

20 DayString = "Fri* 

End If 
Case 7 

If length = "long" Then 

DayString » "Saturday" 

DayString = "Sat" 
End If 
End Select 
End Function 

30 Function f ixAmpersand (text As String) 

■put in a "&&" for every "&" so ampersand will print instead of format an underline 
Dim i As Integer 
Dim oldText As String 
Dim newText As String 
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newText - 

oldText = text 

While InStr (oldText, "&") 
i = InStr (oldText, "&") 
newText = Left (oldText, i - 1) & "&&" 
oldText • Right (oldText , Len(oldText) - i) 

Wend 

f ixAmpersand = newText & oldText 
End Function 



Sub InvokeHeip ( ) 

•add parameter for current location or give each form a local InvokeHeip 
•would be specialized for each view, probably not each button 

TellUser "Press Help (?) again for general help, or press any button on the 
remote for help with that button." 

Select Case returnCode 
SO Case B.HELP 
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TellUser "General Help:" 
Case B_ PREVIEW 

TellUser 'Use the Preview button to see a video preview of the highlighted 
selection. " 

Case B_BACK 

TellUser "Use the Back button to back up to the previous screen.' 
Case KEY_ESCAPE 

TellUser "Use the Shortcut key to get to the shortcut buttons." 
Case B_S ELECT 

TellUser "Use the select button to choose a highlighted option." 
Case Else 

TellUser "This help screen is not written yet." 
End Select 
End Sub 



Sub Main ( ) 

Dim i As Integer 

Dim DB As database 

Set DB = OpenDatabase(CATDB> 

Set typeTable = DB . OpenTabl e { " Type * ) 
20 set catTable * DB.OpenTable ( "Category- ) 

Set DB ■ OpenDatabase (TVDB) 

Set statTable » DB . OpenTabl e ( " Stations " ) 

SetKeys displayMode 

"set different list forms 
2S Set listFrm(TV) = TVlist 

Set 1 is tFrm (MOVIE) = MOVlist 

Set listFrmtSHOP) = SHOPlist 

' set color array 



Color (0) • &HBFBF00 
Color (1) = &HFFFF80 
Color (2 > = &HFFC0FF 
Color (3) = &HFF80FF 
Color (4 ) - &H8OC0FF 
Color (5) = &HC0FFC0 
Color (6) ~ &HFF8080 
Color (8) * &HFFC0C0 
Color (7 J = &HC0C0& 
'set date and time 
fakeToday = CVDate ( " 6/ 12/94 * ) 
fakeTime = CVDate("6:30 PM" ) 



* teal green 
'light blue 
'light pink 
•dark pink 
'medium orange 
'lightest green 
'royal blue 
' lavendar 
•ochre 
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newUser = True 



SO 



' start up the forms 
frmFrame . Show 
DoEvents 

'load all forms here 

Load frmDex 

Lead frmAlpha 

Load frmTV 

Load frmMsg 

'Movie forms 

currDomain = MOVIE 
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viewFilter = 'Year >= 1993" 
currView (MOVIE) = "Recent Movies* 
curr Filter (MOVIE) = All Categories* 
s SetStatus "Movies" , greyCOLOR 

Load lis tFrm (MOVIE) 

* Shopping forms 
curr Domain ■ SHOP 
filters (SKOF) = 

SetStatus "Shopping, compact disks" , greyCOLOR 
10 Load listFnMSHOP) 

* TV forms 

currFil ter (TV) = "Basketball" 
curr Domain = TV 
filters (TV) = "Category = 39" 
j5 userString = "Nova" 

' Load f rmWeek 
'Load listFrm(TV) 
'Load frmComing 
'Load frmWkday 
"Load frmSelect 

20 

'show main menu 

SetStatus "Use arrows and select or use keypad. - . greyCOLOR 
f rmDex. Show 
End Sub 

25 

Function Overlap (beginTS, endTS) As String 

'create query string to look for TV programs in che range between 
* and including beginTS and endTS 

Overlap = ■ (StartTS <= m U Str(endTS) & * And FinishTS >= " k Str(beginTS) & 
End Function 

30 

Sub Setlnfo (text As String, Color) 
•update the info box text and color 
Dim s As SSPanel 

Set s = frmFrame • ssplnfo 'works as long as form is loaded 
35 s.BackColor = Color 

s. Caption = text 
End Sub 

Sub Set Keys (mode As String) 

'Set the keymappings for keyboard or •remote" 
40 B_l = KEY.NUMPAD7 

B_2 = K E Y_NUM PAD 8 

B__3 = KEY.NUWPAD9 

B_4 - KEY_NUMPAD4 

B_5 = KEY_NUMPAD5 
45 B_6 = K EY_NUM PAD 6 

B_7 = KEY.NUMPAD1 

B_8 = KEY_NUMPAD2 

3_9 = KEY_NUMPAD3 

If mode = "TV" Then 

*use keypad for all buttons (except 1-9) 
50 B_3ACK = KEY_ SUBTRACT 
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B_HELP = 13 'I don't know what the name of this key is 

B_P REVIEW a KEY_ADD 

B_UP = Ascf8-) 

B_DOWN = Asc ( " 2 " ) 

B_LEFT = ASCC4-I 

B_RIGHT = Asc ( " 6 " ) 

B_S ELECT = Asc ( " 5 " ) 

3_ PAGEUP = KEY_DIVIDE 

B_ PAGEDOWN = Asc ( "0" ) 

3_0 = KEY_MULTIPLY 

B_FILTER * KEY_RETURU 

Else 

B_3ACK = KEY_F1 
B_HE1P = KEY_F3 
B_ PREVIEW * KEY_F2 
B_UP = KEY_UP 
B_DOWK = KEY_DOWN 
B_LEFT = KEY_LEFT 
B_RIGHT « KEY.RIGHT 
B_S ELECT » KEY_RETURN 
B_PAGEUP = KEY_PRIOR 
B_ PAGEDOWN « KEY_NEXT 
B_0 = KEY_NUMPAD0 
B_FILTER = KEY_F4 
End If 
End Sub 

Sub SetStatus (text As String. Color) 
'update the status bar with new message 
Dim s As SSPanel 

Set s = f rmFrame ! sspStatus '(works as long as form is loaded) 
s.BackColor - Color 
s. Caption = text 
End Sub 

Sub SizeAControl (Item As Control, t, H, 1, w) 
'set the size attributes of a control 

Item. Top = t 

Item. Left = 1 

Item. Height = H 

Item. Width = w 
End Sub 

Sub SizeAForm (frm As Form, t, H. 1. w) 
' set the size attributes of a form 

frm. Top = t 

frm. Left = 1 

frm. Height = H 

frm. Width » w 
End Sub 

Function StationString (s) As String 

'looks up station number and returns station name as string 
statTable . Index = "ID" 
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statTable.Seek s 

If statTable-NoMatch Then 

MsgBox "illegal station ID " & s 

Stop 
End If 

StationString = statTable ( "Name * ) 
End Function 

Sub TeilUser (message As String) 

'displays message on screen until key is pressed 
•probably would not be used 

userMsg » message 

Wait frmMsg 
End Sub 

Function Time Lab el (t) As String 

'returns null string for times on half hour. 

* returns hour 1 . . 12 otherwise 

Dim s As String 

s » Format ( t , "hh:mm AM/PM") 

If Midts, 4, 2) » "30" Then 
TimeLabel = • " 

Else 

s =* Format(s, *h AM/PM" > 
'strip off AM/PM 
TimeLabel = Leftls. Len(s) - 3) 
End If 
End Function 

Function TimeString {aDate) As String 

■format a date as 12-hour time without AM/PM or leading zero 
Dim theTime As String 

theTime = Format (aDate. *hh:mm AM/PM") 
theTime = Left ( theTime , 5) 'take just "hh:ram" part 
If Left(theTime, 1) = "0" Then 
theTime = Right ( theTime, 4) 
End If 

TimeString » theTime 
End Function 

Sub Wait (F As Form) 

■Allows one form to wait for another to hide itself 
F . Show 

While (F. Visible) 
Do Events 

Wend 
End Sub 

' WEEK form code ====== 

Option Explicit 

'stacked channel* view to be used with TV search and 

' possibly other minimal searches {would need modification in ApplyFilter) 
Dim ailDataO) As snapshot 'all data within time period 
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Dim f ilterData! 8) As snapshot "a snapshot for each day in the view 

Dim KDays As Integer 'number of days in display 

Dim NSiots As Integer 'number of time slots in display 

5 Dim NProgs As Integer 'number of programs in display 

Dim colorField As String 'the database field that determines item color 

' (the field should contain an integer) 
Dim inPreview As Integer 'boolean 'if true, preview should show 
Dim refDate reference date for data time slots 
Dim sIotsPerDay As Integer 'number of slots allowed per day 

10 Dim currDay number of current day 

Dim daywidth As Integer 'width of day labels 

Dim lblHeight As Integer 'height of day labels 

Dim infoHeight As Integer "height of specialized info panel 

Dim timeHeight 'height of time labels 

1S Dim startTime 'beginning time for view 

Dim TSBegin As Long 'first time slot of current day 
Dim TSEnd As Long ' last time slot of current day 
Dim TScurrent As Long ' time slot of current program 

Sub ApplyFilter () 
20 ' filter for a particular show by title in userString 

Dim i As Integer * counter 

'create snapshot for each day 
For i = 1 To NDays 

allDatati) .Filter = "Title = ■■■ & userString & 
Set f ilterData { i ) - allData ( i ). CreateSnapshot ( ) 
f ilterData ( i) .Sort » "StartTS" 

Set f ilterData (i) - f ilterData ( i ) .CreateSnapshot ( ) 
Next i 
End Sub 

Sub ChangeSel <d As String) 
'perform view navigation 

Dim current 'as database marker 
Dim success As Integer 'boolean 
Dim s As Integer * station number 
Dim best 

Dim TS As Long 'time slot 
Dim F As snapshot 
Dim a Day As Integer 
Dim marker ' as bookmark 
Dim arrows As String 

'save values, initialize values 
current = f ilterData ( currDay) . Bookmark 
Set F = f ilterData (currDay) 
s = F( "Station" ) 
TS = TScurrent 
a Day = currDay 
success - False 

Select Case d 
Case -Right" 
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'move to later time, same day 
F . FindNext -StartTS > • & Str<TS> 
success « Not F.NoMatch 
If success Then 
5 'check if info arrows needed 

TS = F( -StartTS-) 
F . MoveNext 
If Not F . EOF Then 

If F( -StartTS- ) = TS Then 
10 infoArrows "down" 

Else 

infoArrows "none" 
End If 

Else 

infoArrows "none" 
,5 End If 

F . MovePrevious 
End If 
Case "Left" 

■move to earlier time, same day 
20 F.FindPrevious "StartTS < • & Str(TS) 

success • Not F.NoMatch 
If success Then 

TS = F( "StartTS") 
•go to top of column 
F.FindFirst "StartTS = " & Str(TS) 
TS = F ( "StartTS " J 
'check if info arrows needed 
F . MoveNext 
If Not F . EOF Then 

If F( "StartTS") = TS Then 
infoArrows "down" 

Else 

in fo Arrows " none " 
End If 

Else 

i n fo Arrows • none " 
End If 

F . MovePrevious 
End If 
Case "Down" 

'move to later day, trying to keep close to previous time 3lot 
If NProgs < 1 Then Exit Sub 'do nothing if all snapshots empty 
aDay * aDay + 1 : TS = TS + 48 
While Not success And aDay <- NDays 
Set F = filterData(aDay) 
F.FindFirst "StartTS > " & Str(TS) 
If F.NoMatch Then 

'no prog to right, look left for any programs 
If Not F . EOF Then F.MoveLast 
If Not F . EOF Then 
success = True 
TS = F( "StartTS") 
End If 



25 



71 



25 



EP 0 735 749 A2 



'save program to right, count time slots away, check left 
marker ■ F . Bookmark 
best » -CSrartTS*) - TS 
F.FindLast "StartTS <= ' & Str(TS) 
If F.NoMatch Then 

*no prog to left, take program to right 

F . Bookmark = marker 

TS = TS * best 

W Else 

'check distances from previous time slot 
If TS - F( •StartTS") > best Then 
'right prog closest 
F. Bookmark = marker 
J5 TS a TS * best 

Else 

* left prog closest 
TS - F( -StartTS" ) 
End If 
End If 

20 'either way. we found a program 

success = True 
End If 

aDay = aDay ♦ 1: TS - TS + 48 

Wend 

aDay = aDay - 1: TS = TS - 48 
If success Then 

'make sure to be at the top of a column 
F.FindFirst "StartTS » • U Str(TS) 

If F.NoMatch Then Stop 'how did we get a TS with no program in it" 
TS = F( "StartTS") 
30 check if info arrows needed 

F.MoveNext 
If Not F . EOF Then- 

If F( "StartTS" ) = TS Then 
in f oAr rows " down " 

35 Else 

infoArrows "none" 
End If 

Else 

infoArrows "none" 
End if 

40 F . MovePrevious 

End If 
Case "Up" 

'move to earlier day, trying to keep close to previous time slot 
If NProgs < 1 Then Exit Sub *do nothing if all snapshots empty 
45 aDay - aDay - 1: TS = TS - 48 

While Not success And aDay > 0 
Set F « f ilterData<aDay) 
F.FindFirst "StartTS > " & Str(TS) 
If F.NoMatch Then 

'no prog to right, lock left 
SO If Not F. EOF Then F.MoveLast 
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If No- ".EOF Then 

success = Tree 

TS = F< -StartTS-) 
End If 

5 Else 

'save program to right, count time slots away, look left 
marker * F . Bookmark 
best = F{ -StartTS") - TS 
F.FindLast "StartTS <= " & Str(TS) 
,0 If F.NoMatch Then 

'no prog to left, take program to right 

F. Bookmark * marker 

TS - TS ♦ best 

Else 

•check distances 
,5 If TS - F{" StartTS") > best Then 

' right prog closest 
F. Bookmark = marker 
TS = TS * best 

Else 

20 'left prog closest 

TS « F( -StartTS') 
End If 
End If 

'either way, we found a program 
success ~ True 
25 End If 

aDay = aDay - 1: TS = TS - 48 

Wend 

aDay = aDay + 1; TS « TS «■ 4 8 
If success Then 
30 'make sure to be at the top of a column 

F.FindFirst "StartTS = - & Str(TS) 

If F.NoMatch Then Stop * how did we get a TS with no program in it? 
TS = F ( "StartTS" ) 
'check if info arrows needed 
F . MaveNext 
35 If Not F . EOF Then 

If F ( •StartTS' ) « TS Then 

infoArrows "down- 
Else 

infoArrows "none" 
40 End I f 

Else 

infoArrows "none" 
End If 

F.MovePrevious 
End If 
45 Case 'Next" 

• find next program, same time and day 

F.MoveNext 

If Not F . EOF Then 

'success means still in same time slot 
SO success = Fi -StartTS") = TS 
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End If 
' sec arrows 
If success Then 
? .MoveNext 
arrows = *up" 
If Not F . EOF Then 

If F ( "StartTS" ) ■ TS Then arrows = "both" 
End If 

F.MovePrevious 
infoArrows arrows 
End If 
Case -Prior' 

• find previous program, same time and day 
F . MovePrevious 
If Not F.BOF Then 
/5 'success means still in same time slot 

success = F I "StartTS" ) * TS 
End If 
•set arrows 
If success Then 
20 F.MovePrevious 
arrows = "down " 
If Not F.BOF Then 

If F( "StartTS" ) * TS Then arrows = "both" 
End If 
F . MoveNext 
25 infoArrows arrows 

End If 
Case "none" 

'stay at current program, update the arrows (used at startup* 
If Not F.EOF Then 
30 F . MoveNext 

arrows - "none" 
If Not F.EOF Then" 

If F < "StartTS" ) ~ TS Then arrows » "down" 
End If 

F .MovePrevious 
35 infoArrows arrows 

End If 
End Select 

If success Then 
40 'update 

TScurrent = F( "StartTS") 
cur r Day = aDay 
DisplayProg 

Else 

'restore database position 
45 f il terData (currDay) . Bookmark. - current 

End If 

•set begin and end time slots for current day 

TSBegin = DateDi f f ( "n" . refDate. istartTime - currDay - 1M \ 30 
TSEnd = TSBegin ♦ slotsPerDay - 1 
so End Sub 
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Sub DispiayProg () 

• se ; info box with current program info and highlight position 
Dim F As snapshot 
Dim msg As String 

Set F = fiiterData (currDay) 

msg = StationString(F( "Station- > ) & " : " & Format (F< "Start ") . -hrmm AM/PK") 
msg = msg & - to " & Format (Ft' Finish" 1 , "h:mm AK/PM. ") 
msg = msg & Format (F ( "Title • ) ) 

msg = msg & Chr (13) -(episode info here)" '& Format ( F ( "Episode - )) 
•note: current database does not contain episode information 
Setlnfo msg. Color (F(colorField) Mod 9) 

shpProg(O) .Visible = False 
selector .Visible = False 

Position shpProg (01 . F ( "StartTS" > , F ( " FinishTS" ) 
CPlace 0. selector, shpProgtO) 
shpProg (0) -Visible * True 
selector .Visible » True 
End Sub 

Sub DoPreview ( ) 

'Construct an appropriate preview message and display 
Dim msg As String 

msg a fiiterData (currDay) < "Title" ) 

msg = msg & Chr(13) 4 "on - & StationString [ fiiterData (currDay) ( "Station" ) ) & 
Chr (13) 

msg = msg & CategoryString ( t fiiterData (currDay) ( "Type" )) , 
(fiiterData (currDay) ( "Category" ) ) ) 

msg = msg Se Chr < 13) fc DayString (Weekday ( fiiterData (currDay) ( "Start ")) , "long") 
msg - msg & ", " & Format < fiiterData (currDay) ( "Start ") , "mmm d, yy h:mm AK/PM") 
msg = msg Si Chr (13) & " to " & Format ( fiiterData ( currDay )( "Finish" ) r "h:mm 



popup . Caption = msg 

SizeAControi popup. ( lblTime ( 1) . top * 1.5 * lblTime ( 1 ). Height ) , 12, 
(lbiDay(l) .Width) . 45 

popup .Visible * True 
inPreview a True 



Sub DoSelect < ) 

•set data for selection and go to TV 

userStation = fiiterData < currDay )(" Stat ion" ) 

userStart = fiiterData ( currDay )( "Start " ) 

returnCode = TOTV 

Me. Hide 
End Sub 

Sub DrawProg (duplicates As Integer, index As Integer) 

'craw a program shape in display, marking i- if there are duplicates at the 
identical time slot 



AX/PM- ) 



End Sub 
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• shpProg (0) should be at the desired location 
Dim above, below, side, wide 
, Const GAP = .3 

5 above = shpProg tO ) . top 

below = shpProg (0) .Height 
side = shpProg (0 ). Left 
wide = shpProg tO ) -Width 

ForeColor = blackCOLOR 'line color, thin black outline 
10 FillStyle = 0 'solid 

drawwidth = 1 

Select Case duplicates 
Case 0 

•draw the program in the given color 
'5 fillColor - Color (index) 

Line (side, above) -(side * wide, above + below - .5 * GAP). , B 
Case 1 

'draw the program in grey and mark it 

fillColor = greyCOLOR 'indicate duplicates (which may be of different 

20 colors) 

Line (side, above) -(side + wide, above * below - .5 * GAP), , B 
'draw icon 
above = above * GAP 
side « side ♦ GAP 
wide = 2 * GAP 
25 drawwidth = 2 

Line (side, above) -(side ♦ wide, above + wide) 
Line (side, above * wide) -(side * wide, alx>ve) 

Line (side, above + .5 * wide) -(side + wide, above + .5 * wide) 
Line (side + .5 * wide, above) -(side ♦ .5 * wide, above + wide) 
30 case Else 

'no need to redraw duplicate marks 
End Select 

End Sub 

55 Sub Form_Activate () 

Dim i As Integer 'counter 
Static saveFilter As String 

If saveFilter = userString Then sameFilter = True 
40 saveFilter = userString 

SetStatus "This Week: • & userString, greyCOLOR 

'if not same form, erase and redraw the week schedule 
If Not sameFilter Then 
Me.Cls 

45 Setlnfo "Loading program information...*, GREY 

shpProg(O) .Visible = False 
selector .Visible - False 
info Arrows "none" 
DoEvents 
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AppiyFii ter 
MakeDisplay 
sameFilter = True 
End If 
End Sub 

Sub Forrc_KeyDovm (KeyCode As Integer, Shift As Integer) 
Dim index As Integer 
Dim n As Integer 
10 Select Case KeyCode 

Case Asc ( "Q" ) 

End 
Case 3_SACX 

retumCode - 3ACK 
1S Me. Hide 

Case B_HELP 

sameFilter = True 
InvokeHelp 
Case B_?REVIEW 

If inPreview Then 
20 inPreview = False 

popup. Visible = False 

Else 

inPreview = True 
End If 
Case B_RIGHT 

ChangeSel ( " Right - ) 
Case B — LEFT 

ChangeSel ("Left') 
Case B_UP 

ChangeSel ( "Up" > 
Case B_DOWN 

ChangeSel ("Down") 
Case B_S ELECT 

If Not f ilterData (currDay) . EOF Then Deselect 
Case B _ PAG EDOWN 

ChangeSel ( "Next " ) 
Case B_PAGEUP 

ChangeSel {'Prior") 
Case B_FILTER 

'go back to frmSelect to choose a new title 
retumCode - PICK 
Me. Hide 
Case B_0 

retumCode = SHORTCUT 
Me. Hide 
End Select 
If inPreview Then 
Do Preview 

Else 

popup .Visible = False 
End If 
Er.d Sub 
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S -'c Form_Load ( ) 

Dim i As Integer 

• sec form colors and fonts 
* Me.BackColor » formCOLOR 
shpProg ( 0 ) . BackColor » BorderColor 
lblDay< 0) .BackColor - backgroundCOLOR 
selector . 3orderColor = BorderColor 
dayLine(O) .BorderColor = divideCOLOR 
IblTime(O) . ForeColor = slotCOLOR 
shpSlot (0) . BorderColor = slotCOLOR 
inf oPanel . FontSize s mediumFONT 
If displayMode = "TV* Then 

IblDay(O) . FontSize = small FONT 

lblTime<0) .FontSize = small FONT 

popup. FontSize = mediumFONT 

Else 

lblDay(O) . FontSize * largeFONT 
lblTime(O) .FontSize » largeFONT 
popup. FontSize » largeFONT 
End If 

'cover up the standard info box 

SizeAForm Me, 0, DispTop * DispHeight, DispLeft, dispWidth 

'set scale and size objects 

NDays = 7 

NSlots * 48 

dayWidth = 4 

IblHeight = 2 

infoHeight = 6 

If displayMode = "TV" Then 

upArrow.Left = 8950 

downArrow. Left = 8950 

timeHeight » 2 

downArrow. top = 650 

upArrow.top » 150 

Else 

timeHeight = 1.5 
downArrow. top = 1525 
End If 

Me. Scale (0, 0)- (NSlots * dayWidth, NDays * IblHeight * 2 * timeHeight 
infoHeight) 

selector . BorderWidth *» 1 
'place extended info panel 

SizeAControl infoPanel, 0, infoHeight. 0, (Me. ScaleWidth) 
infcPanel . Caption = "* 
inf cPanel .Visible = True 
'place day labels along side 

SizeAControl IblDay(O) . IblHeight + infoHeight, IblHeight. 0, dayWidth 
Fcr i = 1 Tc NDays 
Load lblDay(i) 

iblDay(i) .Caption a DayString(i f "short") 

IblDay ( i) . top - (i - 1) * IblHeight * infoHeight - 2 • timeHeight 
lblDayt i ) .Visible = True 
Next i 
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'pu~ AM/PM label across cop 

SizeAControl lbiDay(O). ir.foHeight. -i-eHeight, dayWidth, NSlots 
lbiDay(O) .Caption = * AM NOON PM" 

lblDay(O) .Visible = True 
•put time labels across top 

SizeACor.trol lblTime(O), ( IbiDay ( 0 ) . Height ) * infoHeight. tinveHeight. 0, 2 
For i = 1 To NSlots \ 2 
Load IblTimeli) 

IblTime(i) .Capcion = TimeLabel ( Da teAdd ( "h" ti - 1), fakeTODAY) ) 

lblTime( i } - Lef t = 2 * i + 2 

lblTime ( i ) .Visible = True 
Next i 
NProgs - 0 
sameFilcer = False 
Input Data 
Form_Ac t i va t e 
End Sub 

Sub infoArrows (direct As String) 

'show or hide arrows in info box indicating presence of more programs at identical 

time 

Select Case direct 
Case "up" 

downAr row. visible = False 

upArrow. Visible = True 
Case "down" 

upArrow. Visible = False 

downAr row. Visible = True 
Case "both" 

upArrow. Visible = True 

downArrow. Visible » True 
Case "none" 

upArrow. Visible = False 

downArrow. Visible = False 
End Select 
End Sub 

Sub InputData ( ) 
'part of form_load 

'opens the database and creates allData snapshots 

Din 03 As database 

Dir. Kef Snap As snapshot 

Dir. i As Integer 

Set D3 = CpenDatabase ( TVDB ) 

get reference date and number of stations 
Set RefSnap = DB . CreateSnapshot ( " Reference " ) 
RefSnap . FindFirst "Name - ' Date ' ' 
refDate = DateValue {Re f Snap ( "Data* j ) 
RefSnap. FindFirst "Name = ' NStaticns ' " 



Eet allData(O) = D3. CreateSnapshot : "Programs" ) 
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startTiroe - ref Dace 
TSBegin = 0 

TSEnd = TSBegin + 48-1 
For i = I To 7 

allData<0> .Filter = Overlap (?S3egin * 48 * (i 

Set ailData(i) - allData { 0) . CreateSr.apshot { ) 
N'exc i 

Set allDaca(C) ~ Nothing 'no longer need data ai 
c Sub 

'z MaiceDi splay () 

reate schedule display on screen 
Dim i As Integer 'counter 
Dim d As Integer 'day 

Dim TSlast As Integer 'last time slot affected 
Dim F As snapshot ' convenience 
Dim offset As Integer 'used twice: dayline offset & number of prog 
me slot 

'draw horizontal day lines 
drawwidth * 2 

ForeColor » lblDay ( 0 > . BackColor 
offset = infoHeight ♦ 2 * timeHeight 
For i = 0 To NDays 

Line (0. offset + i * IblHeight ) - ( 52 , offset * i * IbiHeight) 
Next i 

■place program shapes 

offset = 0 *Jceep track of how full a particular time slot is 
colorField - "Category" 'note: should this be "Type" instead? 
For d a 1 To NDays 
currDay = d 
TSlast = -1 
Set F ~ f iiterData(d) 
If Not F . EOF Then 
F.MoveFirst 
Do While Not F . EOF 

If Ti "StartTS" ) = TSlast Then 
offset - offset «• 1 
DrawProg offset, -1 

Else 

offset * 0 

Position shpProg(O) , F< "StartTS" ) . F ( " FinishTS" ) 
DrawProg offset, F ( colorField) Mod 9 
TSlast = F( "StartTS") 

End If 

F.MoveNext 

Loop 

F . XoveFirst 
End If 
Nex: d 

' initialize staff 



- 1) , TSEnd - 46 
1 cage* her 
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d = 1 

currDay - 1 
While d <= KDays 

If filterData(d) .EOF Then 
d =* d + 1 

Else 

NProgs = 1 'just to make sure it is more than 0 
cur r Day = d 
d = NDays + 1 
10 End If 

Wend 

s hp Prog ( 0 ) . ZOrder 
selector . ZOrder 

If Not f ilterDat a (currDay ) .EOF Then 
1S TScurrent * f ilterData ( currDay) t "StartTS" ) 

DisplayProg 
ChangeSel "none" 
End If 
End Sub 

20 sub Position (shape As Control, start, finish! 

'position a program shape 
Dim leftTS 
Dim rightTS 
Const smallGA? = .1 

25 

'convert to time slot scale 
leftTS = start - 48 * (currDay - 1) 
rightTS = finish - 48 " (currDay - 1) 
'set left and width 
shape -Left = dayWidth ■♦■ leftTS 
30 shape. Width = rightTS - leftTS + 1 - smallGAP 

'cut off at beginning of day 
If shape. Left < dayWidth Then 

shape. Width - shape. Width - (dayWidth - shape. Left) 

shape. Left = dayWidth 

35 End If 

' set top and height 

shape. Height = 2 - 2 * smallGAP 

shape. top « lblDay (currDay ). top ♦ smallGAP 

End Sub 

40 Sub Setlnfo Imsg As String, Color) 

' override the global Setlnfc to write to my own info panel 
ir.f oPanel . BackColor = Color 
ir.foPanel .Caption = msg 
Er.d Sub 
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•====== WKDAY form code ====== 

Option Explicit 

'schedule cf 5 weekdays at a particular tine 
uses time-slot guided navigation 

Dim allData(8J As snapshot 'all data within tine period 
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Dim f ilterData( 8) As snapshot 'a snapshot for each day in the view 

Din NDays As Integer 'number of days in display 

Dim N'Slots As Integer 'number of time slots in display 

Dim XProgs As Integer 'number of programs in display 

Dim NStation As Integer 'number of stations in display 

Dim KaxStacion As Integer 'total number of stations in database 

Dim colorField As String 'the database field that determines item color 

' (the field should contain an integer) 
Dim inPreview As Integer 'boolean 'true if preview should show 
Const sideGap = .05 'space at beginning and end of program 
Cor.st topGAP = 4 'space btwn time label and first program, shape 
Dir. refDate 'reference date for data time slots 

Const lblHEIGHT « 40 'height of day and time labels (in 500 scale) 

Const MINProgWidth « .2 'minimum width of a program shape as fraction of 
Dir. slotsPerDay As Integer 'number of slots allowed per day 
Dim currDay As Integer 'number of current day 



Dim startTime 'start day and time of display 
Dim TSBegin As Long 'first time slot 
Dir. TSEnd As Long 'last time slot 
20 Dim TScurrent As Long * current time slot 

Dim rowOffset 'distance between (tops of) rows in the schedule 

Sub ApplyFilter ( ) 

•create data set of onpy TV programs that fit into query string filters (TV) 
25 'set number of stations and database field determining color 

Dim i As Integer 'counter 

If InStr ( filters (TV) , "Station") Then 
NStation = 10 

'note: need better mechanism for displaying favorite channels 
30 colorField = "Type" 

Else 

NStation - MaxStation' 
colorField = "Category" 
End If 

35 "or i = 1 To NDays 

allData(i) .Filter = filters(TV) 

Set f ilterData ( i ) * aliData ( i ) . CreateSnapshot ( ) 
Next i 
End Sub 

40 Sub ChangeSei (d As String) 

Dim current, firstMatch 'as database markers 

Dim success As Integer * boolean 

Dim s As Integer 'station 

Dim TS As Long 'time slot 
45 Dim F As snapshot 

Dim a Day As Integer 

Dim best As Integer 



current =• fi 1 terData (currDay ). Bookmark 
Set F = fi IterData (currDay) 
s = F( -Station" ) 
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TS = TScurrent 
aDay * cur r Day 
success = False 

5 I* d ■ 'Right - Then 

•check to immediate right, same time slot 

F . KoveNext 

If Not F . EOF Then 

success = Testation-* - s And FfStartTS") » TS 
10 End If 

If Not success Then 

* check time slots to right 

shpSlot{TS - TSBegin * 1 * [currDay - 1) * slotsPerDay) . FillStyle - 
I " transparent 

IblTimefTS - TSBegin ♦ 1 * (currDay - 1) • slotsPerDay) . BackStyle = 
0 * transparent 

While aDay <= NDays And Not success 
While TS < TSEnd And Not success 
TS = TS + 1 

'check stations at and below current 
20 F.FindFirst Overlap (TS, TS) fit "And Station >= " & s 

If F.NoMatch Then 

■take the last station above current 

F.FindLast Overlap (TS, TS) & "And Station < " & s 

success = Not F.NoMatch 

Else 

'save this match and check if stations above are closer 
success = True 
best = F( "Station") - s 
firstMatch = F . Bookmark 
'check previous 

30 F . FindPrevious Overlap (TS , TS) 

If F.NoMatch Then 

-no previous match, stick with first match 
F . Bookmark = firstMatch 

Else 

If s - F ( "Station" ) > best Then 
* first match was closer 
F. Bookmark = firstMatch 
End If 
End If 
End If 

Wend 

If Not success Then 

TSBegin = TSBegin + 48 
TSEnd = TSBegin ♦ slotsPerDay - 1 
TS = TSBegin - 1 
aDay = aDay ♦ 1 
Set F - f ilterData ( aDay ) 
End If 

Wend 
End If 
Elself d = -Left" Then 

■check to immediate left, same time slot 
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F . Move Previous 
If Not F.BOF Then 

success = F< "Station" ) = s And F i "FinishTS" ) = TS 
5 End If 

If Not success Then 
'check previous time slots 

shpSlottTS - TSBegin ♦ 1 + (currDay - 1) * slotsPerDayl . FiliStyie - 
1 ' transparent 

lblTime(TS - TSBegin + 1 + (currDay - 1) * siocsPerDay ) - BaekStyle = 
'0 C ' transparent 

While aDay >= 1 And Not success ' for each day to lef- 

While TS > TSBegin And Not success * look for previous slo: this day 
TS = TS - 1 

F . FindFirs t Overlap [TS. TS) i " And Station >= " & Strtsj 
1$ If F.NoMatch Then 

'none with station less than current, look for first one dcwr. 
F.FindLast Overlap(TS, TS) 
success = Not F.NoMatch 

Else 

success = True 

20 'mark this one and check up 

firstMatch ~ F. Bookmark 
best = F ( "Station" } - s 

F . FindPrevious OverlaplTS. TS) 'will be less than current 

station 

25 If F.NoMatch Then 

'none lower, keep first match 
F . Bookmark = firstMatch 

Else 

If s - F( "Station") > best Then 
• first match was closer 
30 F. Bookmark * firstMatch 

End If 
End If 
End If 

Wend 

^ If Not success Then 'try previous day 

aDay = aOay - 1 
TSBegin = TSBegin - 48 
TSEnd * TSBegin ♦ slotsPerDay - 1 
TS = TSEnd * 1 
Set F = filter Data ( aDay) 
40 End If 

Wend 
End If 
El self d = "Down" Then 
'move down within time slot 
45 'note: should we have option to only stop at programs that _begin_ in current 

time slot? 

(with exception of first tixe slot in each day, of course) 
F. Bookmark = current 

F.FindNext * ( " & Overlap {TS . TS) k " And Station <> " & Str(s) & ">• 
success - Not F.NoMatch 
SO El self d = "Up* Then 
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* move down within time sloe 

T.c:e: should we have option to only scop at programs that _ begin_ in current 
time slot? 

(with exception of first time slot in each day, of course} 
F . Bookmark - current 

F . FindPrevious " ( " & Overlap ITS, TS) & " And Station <> * & Strisi & " / ' 
success = Not F.NoKatch 
El self d = "Top" Then 

F.FindFirst Overlap (TS, TS) 
success = Not F.NoMatch 
Elself d = ■Bottom" Then 

F.FindLast Overlap (TS. TS) 
success = Not F.NoMatch 
End If 

If success Then 
'update 

TScurrent = TS 
currDay = aDay 
DisplayProg 

Else 

'restore position in data 
f ilterData t cur r Day) . Bookmark = current 
End If 

restore other stuff 
TSBegin = DateDi f f E "n" , refDate, (startTime + currDay - 1)) \ 30 
TEEnd = TSBegin + slotsPerDay - 1 

shpSlot (TScurrent - TSBegin * 1 + (currDay - 1) * slotsPerDay ). FillStyle = 
C solid 

iblTime (TScurrent - TSBegin ♦ 1 + (currDay - 1) " slotsPerDay) . 3ackStyle = 
1 * opaque 

End Sub 

Sub DisplayProg ( ) 
highlight location of current program 
"put info for current program in info box 

Dim F As snapshot 

Dim msg As String 

Set F = f ilterData (currDay) 
■highlight program 
shpProg (0) .Visible = False 
selector .Visible « False 

Position shpProg(O), FCStarf], F ( 'Finish " ) , FCStation") 
CPlace 3, selector, shpProg(O) 
shpProg !0J .Visible - True 
selector . Visible = True 

'set message 

msg = StationString I Ft "Station" ) ) & " - " & F( "Title") & " " 
xsc = rrsg & Format ( F ( * Start " J , "h:m AH/PM') 
rr:ss = msg i " to " & Format (F ( " Finish" ) t "h:mm AM/PM" ) 
Setlr.fo xsg, Color ( F (color Field) Mod 9) 
End 3ub 
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Sub Do Preview (1 

•Construct an appropriate preview message and display 
Dim msg As String 

msg - "Station: " & StationString ( filterData (currDay M "Station" ) ) 

msg = msg & Chr<13) & "Title: • & filterData (currDay) ( 'Title- * i Chr(12i 

msg = msg & CategoryString < ( filterData (currDay) ( "Type- )) . 
(filterData {currDay J t "Category" ) > > 

r.sg * msg & Chr ( 13 ) i "Time: - & Format ( filterData (currDay H "Start " i . 'mm.- d.yy 
h:nm AM/PM" ) 

msg = msg & Chr ( 13 } i " to ' & Format ( filterData (currDay H -Finish - * . "h:mm 

AX/PM" ) 

* show popup with preview message 
popup .Caption = msg 

popup. Top = lbiTime(l) .Top ♦ 2 * lblTime ( 1 ). Height 
popup. Left - 2 

popup. Width * slotsPerDay # NDays - 3 
popup. Visible = Trje 
inPreview = True 
End Sub 

Sub DoSelect ( ) 

'set data for selection and go to TV 

userStation = filterData < currDay) ( 'Station- ) 

userStart = fil terData ( currDay )( -Start" ) 

retumCode = TOTV 

Me . Hide 
End Sub 

Sub Form_Activate () 

Dim i As Integer * counter 
Static saveFilter As String 

If saveFilter » f ilters (currDomain) Then sameFilter = True 
saveFilter = filters (currDomain) 

SetStatus "Evening TV: " & currFilter (TV) . greyCOLOR 
'note: • Evening TV" label would be variable 
If inPreview Then 

popup. Visible - False 

inPreview = False 
End If 

If newUser Then 

popup. Caption = 'Press 'category' to change the kind of programs diplayed." 
popup. Visible = True 

'note: ought to make popup go away on timer as well as button press 
newUser = False 
End If 

If sameFilter Ther. 

'restore darkened time-slot 
If TScurrent > 0 Then 
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shpSlot (TScurrent - TSBegin * I ♦ (currDay - 1) * slotsPerDay ) . FiilStyle 

= : ' sciid 

lblTime (TScurrent - TSBegin - 1 » (currDay - 1) • slotsPerDay) . BackScyle 

- 1 ' solid 

End If 

Else 

'unload old program shapes and redo display 
Setlnfo 'Loading program information.-. - . GREY 
shpProg (C) .Visible = False 
IbiDay(O) .Visible - False 
lblTime (0) .Visible = False 
shpSlot (0) .Visible - False 
selector .Visible = False 
For i - 1 To MProgs 

Unload shpProg(i) 
Next i 
ApplyFilter 
KakeDisplay 
sameFilter = True 
End If 
End Sub 

Sub Fcm_KeyDown {KeyCede As Integer, Shift As Integer) 

'note: always turn off the black slot before leaving, so it doesn't mess up 
later views 

Dim Index As Integer 

Dim n As Integer 

Select Case KeyCode 

Case Asc ( "Q" ) 
End 

Case 3_BACK 

shpSlct (TScurrent - TSBegin + 1 * (currDay - 1) * slotsPerDay ). FiilStyle = 
1 ' transparent 

lblTime (TScurrent - TSBegin * 1 * (currDay - I) * slotsPerDay >. BackStyle = 
0 • transparent 

returnCode = BACK 
Me. Hide 
Case B_HELP 

sameFilter = True 
InvokeHelp 
Case B_PREVIEW 

If inPreview Then 

popup . Visible = False 
inPreview - False 

Else 

inPreview = True 
End If 
Case 3_RIGHT 

If Not filterData (currDay I. EOF Then ChangeSel ("Right") 
Case 3_LEFT 

If Not filterData (currDay ) .EOF Then ChangeSel ("Left") 
Case 3_UP 

If Not filterData (currDay ». EOF Then ChangeSel ("Up") 
Case B_DOWN 
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If Not filterData ( currDay ) .EOF Ther. ChangeSel ("Down") 
Case S SELECT 

shpSlot (TScurrent - TSBegin * 1 - '.currDay - 1) * slo-sPerDay) .FiilStyie 
1 ' transparent 

lblTime (TScurrent - TSBegin * 1 ♦ (currDay - 1) * slotsPerDay >. Bac^Scyie 

0 ' transparent 

If Not filterData ( currDay ) .EOF Then Deselect 
Case B_?AGEDOWN 

If Not filterData (currDay) .EOF Then ChangeSel l"Botton') 
10 Case B_?AGZU? 

If Not filterData (currDay) . EOF Ther. ChangeSel ( - Top ■ J 

Case B_FILTER 

shpSlot (TScurrent - TSBegin «• 1 ♦ (currDay - 1) * slotsPerDay >.-- il iStyle 
1 ' transparent 

lblTime' TScurrent - TSBegin «- 1 - (currDay - 1) * slotsPerDay > . BackStyie 
C ■ transparent 

returnCode - Filter 
Me. Hide 
Case B_0 

shpSlot (TScurrent - TSBegin * 1 ♦ (currDay - 1) * slotsPerDay ) - FillStyle 

20 1 * transparent 

lblTime (TScurrent - TSBegin * 1 * (currDay - 1) • slotsPerDay ). BackStyie 

0 • transparent 

returnCode = SHORTCUT 
Me. Hide 
End Select 
If inPreview Then 
DoPreview 

Else 

popup. Visible « False 
End If 
End Sub 

Sub Form_Load ( ) 

Dim d As Integer, i As Integer, n As Integer 'counters 
Dim t 'as time 
■set form colors and fonts 
Me.BackColor » formCOLOR 
shpProg (0) . BackColor = BorderColor 
lblDay (0) . BackColor = backgroundCOLOR 
selector . BorderColor * BorderColor 
dayLine(O) .BorderColor = divideCOLOR 
lblTime (0) . ForeColor = slotCOLOR 
shpSlot (0) . BorderColor = slotCOLOR 
If displayMode ° ■TV" Then 

lblDay (0) . FontSize = smallFONT 
lblTime (0) .FontSize » smallFONT 
popup . FontSize = mediumFONT 

Else 

iblDay(0 ). FontSize =* largeFONT 
lblTime (0) .FontSize = largeFONT 
popup. FontSize = largeFONT 
End If 

set scale and size objects 
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SizeAForra Me. DispTop, DispHeight, DispLeft, DispWidth 
Me. Scale (0. 0>-<500. 500) 

SizeAControl lblDay(O) , 0, lblHEIGHT , 0. 500 

SizeAControl IblTime(O), lb 1 HEIGHT, lblKEIGHT. 0. 50 
5 SizeAControl shpSlot(O), 2 • lbl HEIGHT * .5 * topGAP. 500 - 2 * lblHEIGHT, 0. 50 

SizeAControl popup, 250. 200. 250. 200 

selector .BorderWidth = 1 

dayLine(O) .Yl = 0 

dayLme(O) .Y2 = 500 
jo ' in.it variables 

samerilter = False 

sameView = False 

inPreview = False 

NProgs = 0 

NDays = 5 ' five weelc days 
15 slotsPerDay » 6 'three hours, 6 half -hour slots 

NSlots = NDays * slotsPerDay 

startTime = fakeToday * CVDate<"7:00 PM" ) 'time would be variable and set at 
activate 

startTime = DateAdd [ •d" , 2 - Weekday (startTime > , startTime) 'set startTime to 
20 Monday (=2) 

•set time slot scale and place the perrr-anent objects 
Me. ScaleWidth * NSlots 
lblTime<0) -Width = 1 
shpSlot (0) .Width * 1 
For i = 1 To NDays 

'place and caption day labels 
Load IblDay(i) 

SizeAControl lblDay(i). 0, lblHEIGHT. slotsPerDay * (i - 1>, slotsPerDay 
lblDay(i) .Caption = DayStringii ♦ i. "short") 
IblDay(i) .Visible » True 
30 Next i 

Fcr d = 1 To NDays 

For i - 1 To slotsPerDay 

n = id - 1) " slotsPerDay * i 
'place time slot dividers 
Load shpSlot(n) 
35 shpS lot (n) .Move n - 1 

shpSlot (n) .ZOrder 
shpSlot (n) .Visible = True 
' place time labels 
Load lblTime(n) 
40 lblTime(n) .Move n - 1 

lblTime(n) .ZOrder 

t =* DateAddCn-, 30 * (i - 1), startTime) 
IblTime (n) - Caption = TimeLabeltt) 

•time captions would be set at activate since they could change (when 
sa.TieView false) 
45 shpSlot (i) .FillStyle » 1 ' transparent 

IbiTime(i) .SackStyle = 0 * transparent 
IblTime(n) .visible = True 
Next i 

'place day separators, but don't show yet 
50 If d < NDays Then 
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Load dayLir.e(d) 

dayLine(d) .XX * d * slotsPerDay 
dayLine (d) .X2 = d * slotsPerDay 
End If 
Next d 
Input Data 
Form_Activate 
same View = True 
End Sub 

Sub Input Data ( ) 
'parr of f orm_load 

'opens the database and creates allData snapshots 

Dim DB As database 
Dim Re f Snap As snapshot 
Dim i As Integer 

Set DB a openDatabase tTVDB) 

'assumes data already sorted by station, start 

'get reference date and number of stations 
Set RefSnap ~ DB -CreateSnapshot ( "Reference" ) 
RefSnap.FindFirst "Name = 'Date'" 
refDate = Da teValue {RefSnap ( "Data - ) ) 
RefSnap.FindFirst "Name » 'NStatior.s ' * 
MaxStation » Val (RefSnap ( 'Data" ) ) 

Set allData(O) = DB . CreateSnapshot (" Programs" ) 

■create snapshots of all programs for each weekday at fixed time 
50 ■ time would be variable and these wculd have co be created at activate 

TSBegin = DateDif f ( "n" . refDate, startTime) \ 30 
TSEnd = TSBegin ♦ slotsPerDay - 1 
For i = 1 To 5 

allData(O) .Filter » Overlap (TSBegin ♦ 48 * (i - 1). TSEnd * 49 • [i - I ) ) 
3S '48 time slots/day 

Set allData(i) = allData ( 0 J . CreateSnapshot ( ) 
Next i 

Set allData(O) = Nothing 'won't be needing everything since time is fixed 
End Sub 

40 Sub MakeDisplay <) 

'create the visual schedule of programs from the filtered data 
Dirr. d As Integer 'day 
Dim c As Integer 'counter 
Dim F As snapshot ' convenience 

Dim hasProgs As Integer 'remember the first day that has programs in it 
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"set times showing 
If Mot saneView Then 

'would change time labels here 
End If 
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'place program shapes 
hasProgs = 0 

c = 0 'init count of shpProgs 
5 On Error GoTo ErrorHandler 'if we run out of shpProgs to allocate 

For d * 1 To NDays 
currDay 3 d 
Set F » f ilterData(d] 

'create a shape control for each TV program in the data 
If Not F . EOF Then 
10 F.MoveFirst 

Do While Not F . EOF 

Load shpProgtc *■ 1) 

c = c + I * increment only after allocate succeeds 
shpProg(c) .BacleColor = Color ( F (colorField) Hod 9) 
J5 Position shpProgtc) , F( "Start"), FCFinish"), F(-Station-) 

shpProg(c) .ZOrder 
shpProg(c) .Visible = True 
F.MoveNext 

Loop 

F.MoveFirst 

20 jf hasProgs = 0 Then hasProgs = d 'remember the first day with programs 

in it 

End If 
Next d 
Move On: 

2S On Error GoTo 0 'quit trapping errors internally 

make day lines visible on top 
For d « 1 To NDays - 1 
dayLine(d) .ZOrder 
dayLine (d) .Visible = True 
Next d 

30 

'initialize stuff 
NProgs = c 
currDay * hasProgs 
shpProg ( 0 ) . ZOrder 
35 selector . ZOrder 

If currDay > 0 Then 

'set time slot begin and end numbers for current day 

TSBegin - DateDif f ( "n" . refDate, startTime) \ 30 + 48 * (currDay - 1} 
TSEnd a TSBegin ♦ slotsPerDay - 1 
TScurrent = TSBegin 
40 Set F = filterData (currDay) 

Do While TScurrent <« TSEnd 

F.FindFirst Overlap { TScurrent . TScurrent) 
If Not F.NoMatch Then 
Display Prog 
4S Exit Do 

End If 

TScurrent » TScurrent + 1 

Loop 

Else 

TSBegin = DateDi f f ( "n" . refDate, startTimeJ \ 30 
50 TSEnd = TSBegin ♦ slotsPerDay - 1 
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TScurrent = TSBegin 



currDay = 1 
End If 

shpSloc( TScurrent - TSBegin ♦ 1 * (currDay - 1) • slotsPerDay J . Fil-Style = 



C ' solid 



lblTime(TScurrenc - TSBegin + 1 ♦ (currDay - 1) * slotsPerDay) . BackStyle = 



1 * opaque 



10 
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Exit Sub 

ErrorHandler : 

If Err =342 Then 

•ran out of room tc allocate program shapes, quit drawing 
Resume MoveOn 

Else 

Dim msg 

msg = Error & Chr ( 13 ) & -Resume or Cancel ?" 
msg * InputBox<msg, -Error Correction - . -Resume") 
If msg = Then Stop 
Resume MoveOn 
End If 
End Sub 

Sub Position (shape As Control, start, finish, station) 
•position a program shape for display 

Dim relatively relativeW, dayStart 

Dim edge 

'convert a day/ time to position in NSlot scale 

dayStart - startTime ♦ currDay - 1 

relative!- = (start - dayStart) * 48 

relativeW = (finish - dayStart) * 48 - relativeL 

•clip shapes off at day boundaries 

If relativeL < 0 Then 

relativeW = relativeW ♦ relativeL 

relativeL = 0 
End If 

If relativeW + relativeL > slotsPerDay Then relativeW = slotsPerDay - relativeL 

■set left and width of shape 

edge = (currDay - 1) * slotsPerDay 

shape. Left = relativeL - edge ♦ sideGap 

shape. Width - relativeW - 2 * sideGap 

"enforce minimum width so program is visible 

If shape. Width < MINProgWidth Then shape. Width = MINProgWidth 
' set top according to station 

'note: this scheme only works because stations are named l..n 
rowOffset = ((500 - 2 * lblHEIGHT - shpProg ( 0 ). Height ) / NStation) 
shape. Top » shpSlot ( 0 ) . Top ♦ topGAP + (station - 1J * rowOffset 



Thus, it will now be understood that there has been disclosed a method and apparatus of finding and selecting a 
program to view from a large schedule of TV programs. While the invention has been particularly illustrated and de- 
scribed with reference to preferred embodiments thereof, it will be understood by those skilled in the art that various 
changes in form, details, and applications may be made therein. For example, color coding of the individual items of 
the reduced representations and of the various entries in the various grid displays could be used to assist the viewer 
in making rapid program selections. Another example is that it is easily within the capabilities of this art to modify a TV 
set by integrating the set top box according to the present invention into it. It is accordingly intended that the appended 
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claims shall cover ail such changes in form, details and applications which do not depart from the true spirit and scope 
of the invention. 

Claims 

1. Apparatus for selecting an item from a group thereof in a system having display means and interactive movable 
pointing means for specifying a location in the display means and making a selection at a specified location, the 
apparatus comprising: 

filtration means including subgroup specifiers in the display means and responsive to selection of a subgroup 
specifier by the pointing means for filtering the group to produce the subgroup specified by the selected sub- 
group specifier; 

means for displaying representations of group items belonging to at least a portion of the subgroup in the 
display means; and 

group item selection means for selecting a group item by selecting the representation thereof in the display 
in response to the pointing means. 

2. The apparatus set forth in claim 1 wherein: 

the pointing means need only be movable from one representation to an adjacent representation. 

3. The apparatus set forth in claim 1 wherein: 

the means for displaying the representations comprises: 

first means for displaying the representations in a single dimension; and 

second means for displaying the representations in two dimensions. 

4. The apparatus set forth in claim 1 further comprising: 

means for displaying a reduced representation of the entire subgroup and an indication in the reduced rep- 
resentation of the portion of the group being presently displayed by the display means. 

5. The apparatus set forth in claim 4 wherein said reduced representation is two dimensional. 

6. The apparatus set forth in claim 5, wherein said interactive movable pointing means includes a remote control 
having: 

a first pair of buttons to control changes in location in the display in a first direction; and 
a second pair of buttons to control changes in location in the display in a second direction. 

7. The apparatus set forth in claim 4 wherein said reduced representation is a two dimensional representation of a 
three dimensional representation, the third dimension being location within a logical stack of items having at least 
one common property. 

8. The apparatus set forth in claim 7 wherein each item of a logical stack have viewing timeslot as one common 
property. 

9. A method comprising the steps of: 

receiving program schedule data by a set top box via a same information conductor that conducts program 
information to the set top box; 

filtering said program schedule data in RAM within said set top box; 

said set top box showing a first interactive display on a TV connected thereto presenting a plurality of choices 
for filtering said program schedule data to a viewer; 

in response to an interactive selection by said viewer, filtering said program schedule data into a first subgroup 
of program schedule data; 

also in response to an interactive selection by said viewer, said set top box showing a second interactive 

display on said TV having a second plurality of choices for filtering said program schedule data; 

in response to a second interactive selection by said viewer, filtering said first subgroup into a second subgroup; 
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and 

also in response to a second interactive selection by said viewer, said set top box showing a third interactive 
display on said TV having a representation of each program item ot said second subgroup. 

10. The method of claim 9, wherein said receiving program schedule data step further comprises the steps of 

receiving a first portion of said program schedule data via said set top box; and 
receiving a second portion of said program schedule data at a later non-contiguous time. 

11. The method of claim 9, further comprising the step of: 

in response to an interactive highlighting of a representation of a program item of said second subgroup, 
displaying a title thereof. 

12. The method of claim 11, further comprising the step of: 

in response to an actuation of a select button of a remote control, displaying a preview of said highlighted 
program. 

13. The method of claim 12, further comprising the step of: 

in response to a second actuation of said select button of said remote control, switching said set top box to 
display a TV program corresponding to said highlighted representation. 

14. The method of claim 1 2, further comprising the step of: 

in response to a second actuation of said select button of said remote control, storing a command to switch 
said set top box to display a TV program corresponding to said highlighted representation in when that TV program 
begins. 



15. A method comprising the steps of: 



receiving program schedule data for at least 300 individual channels for a time period of at least a week; 
storing said program schedule data in focal memory for rapid sorting and retrieval in a database format; 
filtering the program schedule data in response to interactive user inputs into a subgroup of the program 
schedule data; 

displaying the subgroup of the program schedule data for the user's review; and 

interactively selecting a program from the subgroup of program schedule data for viewing on a TV screen. 

16. A method for choosing a desired program from a large schedule of programs whose data is stored in a local 
memory, comprising the steps of: 

displaying a vertically cascaded group of cards with each card representing a program of a particular time and 
channel; 

displaying a selection window located around a subgroup of said group of cards; 

displaying a two-dimensional grid adjacent to said vertically cascaded group of cards in which said subgroup 
of the programs represented by said vertically cascaded group of cards are shown in greater detail; 
displaying a first active area within said selection window highlighting one of said subgroup of programs; 
displaying a second active area within said two-dimensional grid, said second active area being located around 
and highlighting greater details of the program highlighted in said first active area; 

moving said first active area in a vertical direction in response to vertical direction arrows to a viewer's input 
of a remote control; and 

selecting a desired program by moving said active area to said desired program and actuating a select button 
until said set top box makes said selection. 

17. The method according to claim 16, further comprising the steps of 

after said active area is moved one location outside of said selection window by inputs from said viewer, 
moving said selection window to a contiguous subgroup to which said active area has moved. 

18. Apparatus for selecting an item from a group thereof in a system having display means and interactive movable 
pointing means for specifying a location in the display means and making a selection at a specified location, the 
apparatus comprising: 
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filtration means including subgroup specifiers in the display means and responsive to selection of a subgroup 
specifier by the pointing means for filtering the group to produce the subgroup specified by the selected sub- 
group specifier; 

means for displaying representations of group items belonging to the subgroup in the display means; 
group item selection means for selecting a group item by selecting the representation thereof in the display 
in response to the pointing means; and 

means for displaying a reduced representation of the entire subgroup and an indication in the reduced repre- 
sentation of the portion of the group being presently displayed by the display means; 
said reduced representation displaying means displaying a two dimensional representation of a three dimen- 
sional representation, a third dimension being represented as a logical stack of items having at least one 
common property. 

19. The apparatus set forth in claim 8 or 18, wherein said interactive movable pointing means includes a remote control 
having: 

a first pair of buttons to control changes in location in the display in a first direction; and 

a second pair of buttons to control changes in location in the display in a second direction; and 

a third pair of buttons to control changes in location within the logical stack. 



55 



95 



BP 0 735 749 A2 



FIG. 1 




16 

FROM i 

CABLE L - 

NETtfORK 



TO TV 



FIG. 2 



ROM 




RAM 






♦ 



40 



j-30 ^ 



CABLE 
INTERFACE 



CENTRAL 
PROCESSING 
UNIT 



46 



^42 



• 44 



CONTROLLER 
INTERFACE 



/2 



48 



STB 
DISPLAY 



96 



EP 0 735 749 A2 



FIG. ^ oq 



f 64 f66 f68 

2JQJCO 



60 



52 



'55 



54 



L3 



IJ. 



□e 



f 62 



50 



FIG. 4 



400 



TELEVISION 



402- 
404 
406- 
408- 



BEG1N 



MOVIES 



LAST MOVIES 



OPTIONS 



410 



TV 



4/8 



SHOPPING 



TV NOW 



LAST SHOP 



LAST TV 



412 
-414 



^418 



97 



EP 0 735 749 A2 



FIG. 5 



/ 



500 



ON TV RIGHT NOW 



502 
504 



BEGIN 



TV 



1^502 



ON NOW 



COMING UP 



WEEKDAYS 

s — 

506 



WEEKEND 

s 

510 



SEARCH 



508 512 



TV 



605 



^600 



S024 



NOTICIERO UNMSI6N ON KCSO, 6:30 TO 7:00 



p 


NOTICIERO UNMSION 1 II 


□ 


«l 


VICTORY AT SEA II 






VICTORY AT SEA II 






CODE 3 1 1 




l«l 


THE NORSEMAN 1 1 




l« 


RO UINIITFS 1 1 





TV 6:30PM : ALL CATEGORIES 



610 



>606 



610 



98 



EP 0 735 749 A2 



FIG. 7 



/ 



700 



? MENU 



702 



HELP 



BEGIN 
708 



704 



CATEGORIES 



FAVORITES 



~~r 

710 



706 

3= 



VIEW 



VIEWER 
7/2 



USE ARROWS OR SELECT USING KEYPAD 




506 



809 



99 



EP 0 735 749 A2 



FIG. 9 



900 




FIG. 1 0 



1004 



1005 




1000 



1010 



THIS WEEK IN THE NBA ON CNN. 6:30 TO 7:00 



m 




fTHIS WEEK IN THE NBA 



AMAZING GAMES 



SENIOR PGA GOLF 



LPBT BOWLING 



NBA BASKETBALL PLAYOFFS 



AMERICAN GLADIATORS 



TV 6:30PM : ALL SPORTS AND SPORTS SHOWS 



1015 



100 



EP 0 735 749 A2 



FIG. 11 



1102 



/ 



1100 



THIS WEEK IN THE NBA ON CNN, 6:30 TO 7:00 | 



THIS WEEK IN THE NBA 
CNN 

CATEGORY: SPORTS. BASKETBALL 



TV 6:30PM : ALL SPORTS AND SPORTS SHOWS 



1106 



FIG. 12 



1200 



WHATS ON TV RIGHT NOW 



BEGIN 1202 



TV 1204 



ON NOW 



1206 



COMING UP 



SEARCH 



WEEKDAYS 

— s — 

1208 



WEEKEND 



— r 

1210 



TV 



101 



EP 0 735 749 A2 

FIG. 13 



1300 



KM: MAJOR LEAGUE BASEBALL 7:00 PM TO 10:00 PM 




TV COMING UP: ALL SPORTS AND SPORTS SHOWS 



FIG. 14 



1400 




102 



EP 0 735 749 A2 



FIG. 15 



/ 



1500 



CNN - THIS WEEK IN THE NBA 6:30 PM TO 7:00 PM 



PM 



jLj! 



SUNDAY 
9 10 11 12 1 



I'll 



AM 
5. 6 



TV COMING UP: BASKETBALL 



FIG. 16 j- mo 

TITLES BEGINNING WITH 'SYMBOL OR NUMBER 7 " 



□ SYMBOL OR NUMBER 


» 


A. B. C, D. E. F, 


» 


G. H. I. J. K, L, 


» 


M. N. 0. P. Q. R. 


» 


S. T. U. V. W, X, 


» 


Y. Z 


» 



TV. SEARCH 



103 



EP 0 735 749 A2 



FIG. 17 



1700 



TITLES BEGINNING WITH 'M, N, 0. P. Q. R' 


a ~ 


SYMBOL OR NUMBER » 


A, B. C. D. E. F, » 






G. H, I, J, K, U » 


J M, N, 0, P, Q, R. » 


S, T, U, V, W, X, » 


Y. Z » 


TV. SEARCH 



FIG. 18 jriaoo 



TITLES BEGINNING WITH 'M' 



rnr 



» 



N 


» 


0 


» 


P 


» 


Q 


» 


R 


» 



TV TTTLES STARTING WITH M, N, 0. P, Q, R 



FIG. 19 jriooo 



TITLES BEGINNING WITH 'N* 



M 



» 



» 



» 



p 


» 


0 


» 



» 



TV TITLES STARTING WITH M, N, 0. P. Q, R 



104 



EP 0 735 749 A2 



FIG. 20 jrZQQo 



N.E. AUTO CLASSIFIED 



□ N.E. AUTO CLASSIFIEDS 



NLEC WORSHIP | 


NNN NEWS MAGAZINE 


» 


NO 


» 



NYPD BLUES 



TV TITLES STARTING WITH N 



FIG. 21 y2ioo 



TITLES BEGINNING WITH 'NO* 



N.E. AUTO CLASSIFIEDS 



NLEC WORSHIP 



NNN NEWS MAGAZINE 



» 



3 



NO 



» 



NYPD BLUES 



TV TITLES STARTING WITH N 



FIG. 22 



2200 



NOVA 


e 




p D NOVA 


» 






1 NOW GENERATION 


» 








TV TITLES STARTING WITH NO 



105 



EP 0 735 749 A2 



FIG. 23 



/ 



2300 



-2304 



WLVT: 12:00 AM TO 1:00 AM, NOVA 
(EPISODE TITLE) 


2302 
VJ2 


1 


2 3 4 


AM NOON PM 
56789 10 11 12 1 234567 


8 


9 10 11 


SUN 






1 1*1 1 II 11*1 






MON 


H 


* 


TUE 


I* 


* 






WED 


I 




I I 


1 1 *l 


* 




THUR 






II I* I 


« 




* 


FRI 


I I II II II 


SAT I 








I Ml *ll H 






THIS WEEK: NOVA 



106 



This Page is Inserted by IFW Indexing and Scanning 
Operations and is not part of the Official Record 



Defective images within this document are accurate representations of the original 
documents submitted by the applicant. 

Defects in the images include but are not limited to the items checked: 

□ BLACK BORDERS 

□ IMAGE CUT OFF AT TOP, BOTTOM OR SIDES 



Id FADED TEXT OR DRAWING 

□ BLURRED OR ILLEGIBLE TEXT OR DRAWING 

□ SKEWED/SLANTED IMAGES 

□ COLOR OR BLACK AND WHITE PHOTOGRAPHS 

□ GRAY SCALE DOCUMENTS 

□ LINES OR MARKS ON ORIGINAL DOCUMENT 

□ REFERENCE(S) OR EXHIBIT(S) SUBMITTED ARE POOR QUALITY 

□ OTHER: 

IMAGES ARE BEST AVAILABLE COPY. 
As rescanning these documents will not correct the image 
problems checked, please do not report these problems to 
the IFW Image Problem Mailbox. 



BEST AVAILABLE IMAGES 




